Delphi編程辨別顯示分辨率

現在的顯示分辨率是越來越高了，以至於是多少都搞不清楚，程序也往往需要知道分辨率才能合理安排窗體，所以要得到顯示分辨率，下列的程序幫你忙：

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;