Delphi编程辨别显示分辨率

Delphi编程辨别显示分辨率2008-04-20现在的显示分辨率是越来越高了，以至于是多少都搞不清楚，程序也往往需要知道分辨率才能合理安排窗体，所以要得到显示分辨率，下列的程序帮你忙：

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;