如何在我的程序启动时自动将系统桌面设置成:1024*768!!!
解决方案 »
- adoquery添加多条记录后,再更新数据库,如何实现
- AThread.Connection.ReadInteger()接收数据出错
- 工程中Imagelist加载文件,重新打工程这些图片就没了........
- 请大家帮忙注释代码~~
- 请问,如何求出一个月有多少天
- 在哪里能够找到Delphi中完整的类继承图(类似二叉树)?
- 如何实现连接到某个网站?
- SQL Server 7英文版备份出来的数据库,能不能在SQL Server 2000中文版上恢复?
- 送分
- 大侠们:请看我的这段程序有什么不对地方吗?(关于读文件的)
- Delphi 中好何设置工作目录????
- 如何使用我的注册窗口只出现一次????????????????
http://expert.csdn.net/Expert/topic/1893/1893375.xml?temp=.6549951
"我在1024*768下设计的,但在WIN98的800*600下运行"
DevMode:TDeviceMode;
begin
try
if(Screen.width<> 1024 )then
begin
if EnumDisplaySettings(nil,0,DevMode) then
begin
DevMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
DevMode.dmPelsWidth:=1024;
DevMode.dmPelsHeight:=768;
ChangeDisplaySettings(DevMode,0); //设置新的显示参数
end;
end ;
except
end ;