荔园在线

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

[回到开始] [上一篇][下一篇]

发信人: Peter (小飞侠), 信区: Program
标  题: 动态改变当前显示模式(转载)
发信站: BBS 荔园晨风站 (Thu Jan 21 21:10:34 1999), 转信


Windows 95提供一个API函数EnumDisplaySettings()来获取所有显示模式
的有关参数，包括颜色数、分辨率等等，下面的示例代码首先用该函数正确地
填充TDevMode类型变量的各字段，然后指定新的数据，再调用
ChangeDisplaySettings()函数来改变显示模式：

                     procedure NewScreenSize(W,H: Integer);
                     var
                       DevMode: TDevMode;
                     begin
                       if EnumDisplaySettings(nil,0,DevMode) then begin
                         with DevMode do begin
                           dmPelsWidth := W;
                           dmPelsHeight := H;
                           dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
                         end;
                         ChangeDisplaySettings(DevMode, 0);
                       end;
                     end;

ChangeDisplaySettings()函数来改变显示模式：

                     procedure NewScreenSize(W,H: Integer);
                     var
                       DevMode: TDevMode;
                     begin
                       if EnumDisplaySettings(nil,0,DevMode) then begin
                         with DevMode do begin
                           dmPelsWidth := W;
                           dmPelsHeight := H;
                           dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
                         end;
                         ChangeDisplaySettings(DevMode, 0);
                       end;
                     end;

--
※ 来源:．BBS 荔园晨风站 bbs.szu.edu.cn．[FROM: 192.168.1.3]

[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店