如何使用getsystemmetrics获取分辨率?

Question

如何使用getsystemmetrics获取分辨率,请各位朋友做好举例说明,谢谢!

Answer 1

edit1.text:=inttostr(getsystemmetrics(SM_CXSCREEN));
   edit2.text:=inttostr(getsystemmetrics(SM_CYSCREEN));

Answer 2

var
  sx, sy: Integer;
  DevMode: TDeviceMode;
begin
  sx := GetSystemMetrics(SM_CXSCREEN); //分辨率宽
  sy := GetSystemMetrics(SM_CYSCREEN); //分辨率高
  showmessage(inttostr(sx)+'*'+inttostr(sy));

Answer 3

var aScreen   :TScreen;
begin
  aScreen:=Tscreen.Create(application);
  ShowMessage('分辨率宽:'+ IntToStr(aScreen.Width));
  ShowMessage('分辨率高:'+ IntToStr(aScreen.Height)); 
....
end;