发信人: 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版直达快车
█┃印龍┃█
█┗━━┛█
██████ |
|