怎么样获取当前系统支持的分辨率列表?(高分急用) 怎么样获取当前系统支持的分辨率列表? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 大哥能说详细一点不我用EnumDisplaySettings提出来的不大对400*300这种都提出来了我的代码如下:varlpDevMode: TDeviceMode;Result:boolean;t,x,y:integer;begin t:=-1; Result:= EnumDisplaySettings(nil, t, lpDevMode); while (Result) do begin x:=lpDevMode.dmPelsWidth; y:=lpDevMode.dmPelsHeight; memo1.Lines.Add(inttostr(x)+'::::::'+inttostr(y)); t:=t+1; Result:= EnumDisplaySettings(nil,t,lpDevMode); end; http://topic.csdn.net/t/20030210/00/1412998.html 如何知道都有哪些用户正在和数据库相连 ◆网页调用EXE问题,谁能帮我解决,我给500分◆ 当天的帖子当天结 (急)小弟找工作 关于面试的问题 各位大侠帮忙 后天就要面试拉!!! 如何通过ADOCommand的Parameter输入Datetime字段 Gbgrid 阁行换颜色的问题 delphi 自定义控件的问题 有谁知道《delphi 4技术内幕》有没有最新的版本?或者更好的书籍?来者有分! 快来看 哪位用过BoundsChecker for Delphi啊?它怎么与Delphi集成调试? 拦截系统快捷键 如何提取xml字符串中的节点值,并且存放到List<T>中
var
lpDevMode: TDeviceMode;
Result:boolean;
t,x,y:integer;begin
t:=-1;
Result:= EnumDisplaySettings(nil, t, lpDevMode);
while (Result) do
begin
x:=lpDevMode.dmPelsWidth;
y:=lpDevMode.dmPelsHeight;
memo1.Lines.Add(inttostr(x)+'::::::'+inttostr(y));
t:=t+1;
Result:= EnumDisplaySettings(nil,t,lpDevMode);
end;