辨别分辨率 (2000年8月31日).txt

delphi 编程技巧

辨别分辨率 (2000年8月31日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:714  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
辨别分辨率


要得到显示器的分辨率，由下列程序得到：
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;