?? 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 + -