📄 tszs1.htm
字号:
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><title>动态调整显示器的分辨率</title></head><body><pre>Windows提供给我们两个API函数，可以动态调整显示器的分辨率， 他们是EnumDisplaySettings()和 ChangeDisplaySettings()， 下面这个例子就是了 </pre><pre><strong>function</strong> DynamicResolution(X, Y: word): BOOL;<strong>var</strong> lpDevMode: TDeviceMode;<strong>begin</strong>Result := EnumDisplaySettings(nil, 0, lpDevMode);if Result then <strong>begin</strong> lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT; lpDevMode.dmPelsWidth := X; lpDevMode.dmPelsHeight := Y; Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL; <strong>end</strong>;<strong>end</strong>;<strong>procedure</strong> TForm1.Button1Click(Sender: TObject);<strong>begin</strong>if DynamicResolution(640, 480) then ShowMessage('Now is 640*480');<strong>end</strong>;<strong>procedure</strong> TForm1.Button2Click(Sender: TObject);<strong>begin</strong>if DynamicResolution(800, 600) then ShowMessage('Now is 800*600');<strong>end</strong>;</pre></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -