如何获取屏幕的分辩率?请教,多谢! 如何获取屏幕的分辩率?请教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dephi中有一个全局的Screen变量 要得到显示器的分辨率,由下列程序得到: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; 在DELPHI 汉字截取了,怎么弄好? 关于PE校验和 delphi7编译器左边下角的两个面板怎么打开? 求解1M的ADSL为什么下载有8M的速度?救命啊 关于多个splitter的问题 高分调查!你正在使用Delphi2005吗?(一周后结贴,每日置顶) 分割文件,搞过的都可以看看,提些意见! 打开窗体时需要做很多数据统计产生一个很小的数据结果,窗体像死了一样,怎么解决这个问题呢? 读取文本文件内容到变量中 怎样用DELPHI 和 ORACLE的存储过程返回记录集 dephi中的指针移动是Pointer+1吗?(在线等待) 急!一个关于OPENFILE用法的问题,在线等待!
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;