怎么取得当前显示的颜色深度与刷新率? 谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var lpDevMode: TDeviceMode;begin Memo1.Clear; EnumDisplaySettings(nil,$FFFFFFFF,lpDevMode); Memo1.Lines.Add('刷新频率: '+inttostr(lpDevMode.dmDisplayFrequency)); Memo1.Lines.Add('颜色深度: '+inttostr(lpDevMode.dmBitsPerPel));end; 谢谢,我找到了另外的办法。用GetDeviceCapsDELPHI的帮助不详细,MSDN上有的。以后有问题,要仔细查MSDN。 我写的一个自定义权限控制过程,请高手看看问题在哪里。 如何随机生成GB2312中特定的某些汉字? 在delphi中从数据库里查到的记录怎么样保存到world里面 如何捕捉点击滚动条发生的事件 如何將文本框的內容設置為當天日期? 向临时表插入数据的问题 把一句VB的声明转成Delphi 关于Loaded方法? 请大家讨论一下动态创建控件的问题!!UP有分! dbgrid 显示记录时的memo字段的显示问题? 急!!!谁有五笔编码表(最好是access格式的) 100分请笑纳!!!! 高手求救:如何提高DX效率:DelphiX中的编程,往往会占用太多的CPU,如何解决?
var
lpDevMode: TDeviceMode;
begin
Memo1.Clear;
EnumDisplaySettings(nil,$FFFFFFFF,lpDevMode);
Memo1.Lines.Add('刷新频率: '+inttostr(lpDevMode.dmDisplayFrequency));
Memo1.Lines.Add('颜色深度: '+inttostr(lpDevMode.dmBitsPerPel));
end;
DELPHI的帮助不详细,MSDN上有的。
以后有问题,要仔细查MSDN。