如何用DELPHI截取当前分辨率？(50分)

W

wilsonyun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-30

• #1

如何用DELPHI截取当前分辨率？

 

L

lushun8418

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-30

• #2

我也想知道，先顶一下。

 

Y

Yhhe

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-30

• #3

GetDeviceCaps(GetDC(Application.Handle),HORZRES)
GetDeviceCaps(GetDC(Application.Handle),VERTRES)

 

S

savetime

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-30

• #4

调用 ReleaseDC 比较有保证
procedure TForm1.FormCreate(Sender: TObject);
var
DC: HDC;
begin
DC := GetDC(0);
ShowMessage(IntToStr(GetDeviceCaps(DC,HORZRES)));
ShowMessage(IntToStr(GetDeviceCaps(DC,VERTRES)));
ReleaseDC(0, DC);
end;