精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>控件开发和使用>>Re:急急!在程序启动和关闭时更改显示模式

主题:Re:急急!在程序启动和关闭时更改显示模式
发信人: kingron(金龍)
整理人: teleme(2000-12-29 11:23:39), 站内信件
//Ex:SetRes(800,600);
//   SetRes(640,480);
procedure SetRes(XRes, YRes: DWord);
var
 lpDevMode : TDeviceMode;
begin
 EnumDisplaySettings(nil, 0, lpDevMode);
 lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
 lpDevMode.dmPelsWidth:=XRes;
 lpDevMode.dmPelsHeight:=YRes;
 ChangeDisplaySettings(lpDevMode, 0);
end;

【 在 yanchao28 的大作中提到:】
:我用DELPHI设计了一个销售系统,显示模式为800X600
:用户初始显示模式为600X400。请问如何能够实现程序启动时
:显示模式为800X600,程序退出时又恢复为显示模式为600X400
:......
 


----
██████
█┏━━┓█
█┃之金┃█   访问Delphi版请点击这儿:Delphi版直达快车
█┃印龍┃█
█┗━━┛█
██████

[关闭][返回]