如何取得屏幕当前的分辨率？

Question

设置分辨率可以用下面的代码：
function TForm1.ChangeResolution(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;procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeResolution(800,600)
end;如何取得屏幕当前的分辨率呢。

Answer 1

x和y就是当前分辨率,你试试吧  x := GetSystemMetrics(SM_CXSCREEN);  
  y := GetSystemMetrics(SM_CYSCREEN);