大侠们帮忙!!!!怎样修改屏幕分辨率、菜单字体，DELPHI程式中调用什么API来实现？

Question

现有一工程项目需要将屏幕分辨率固定为600*800，菜单字体设为“宋体11号”字。多谢各位大侠鼎力相助!

Answer 1

function DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; 
end
end;

Answer 2

改变菜单字体最好还是ownerdraw＝true
procedure TForm1.fdsf1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  height:=200;
  width:=100;
end;procedure TForm1.f1MeasureItem(Sender: TObject; ACanvas: TCanvas;
  var Width, Height: Integer);
begin
  height:=200;
  width:=100;
end;procedure TForm1.fdsf1DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
ACanvas.Font.Size :=20;
acanvas.TextOut(arect.Left ,arect.Top ,tmenuitem(sender).caption);
end;

Answer 3

to wangge(钱 钱 钱 钱 钱 钱 钱 钱 钱 钱) 你不笨，你怎么不告诉他呀…