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

本站更新  分類:   作者:srw  推薦:   閱讀次數(shù):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;