请问怎样用获取电脑屏幕的分辨率 因为我想要在不同分辨率下窗体显示的位置不同,请教用delphi怎样去得到电脑的分辨率? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var dmod:TDeviceMode;begin EnumDisplaySettings(nil,$ffffffff,dmod); if dmod.dmPelsWidth=1024 then ShowMessage('now is 1024*768') else if dmod.dmPelsWidth=800 then ShowMessage('now is 800X600');end; 截取字符串问题 怎么传值给网站? 一个弱问题:DELPHI提供了画三角形的函数吗? sql server2000中在字段类型为float字段,如果值为小于1的时候,这个0怎么就没有了? 改变窗体的尺寸! 有问题请教各位高手! Excel的导出问题 25岁了,散分! 高分求助 我想单击DBGrid控件某个记录时这条记录能显示跟其他记录不一样的颜色,并把这条记录的信息提供给其他窗体使用,我该怎么做 如何取移动硬盘或U盘的序列号? 我想要通过判断屏幕分辨率是800*600还是1024*768,来确定显示窗体的大小和位置,请教用delphi怎么写?
var
dmod:TDeviceMode;
begin
EnumDisplaySettings(nil,$ffffffff,dmod);
if dmod.dmPelsWidth=1024 then
ShowMessage('now is 1024*768')
else
if dmod.dmPelsWidth=800 then
ShowMessage('now is 800X600');end;