辨别显示分辨率

width="84%">辨别显示分辨率

要得到显示器的分辨率，由下列程序得到：

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;