怎样得到显示器分辨率？(30分)

X

xusiqi8868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #1

例如 当前显示器分辨率为(800X600)
怎样得到当前显示器分辨率为(800X600)并且
用一个函数输出两个整型数 800，600

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #2

var
x:longint;
a:string;
begin
x := GetSystemMetrics(SM_CXSCREEN);
Str(x,a);
Label1.Caption := '显示器水平分辨率' + a;
x := GetSystemMetrics(SM_CYSCREEN);
Str(x,a);
Label2.Caption := '显示器垂直分辨率' + a;
end;

代码:

 

W

weinie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #3

screen.width
screen.heigth
或者api试试

 

C

cwmdelpher

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #4

直接这样也行：
screen.width
screen.hieght

 

X

xusiqi8868

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-12

• #5

多人接受答案了。