[Delphi] スクリーンの解像度を変更する

2001年9月 2日(日) 12:09 JST
投稿者:くろねこ

以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、画面の解像度を変更する方法を示しています。
※注意このサンプルの使用においては、注意して使用してください。ハードウェアの対応外の解像度に設定した場合、そのハードウェアに悪影響がある場合があります。

procedure SetResolution(ResX, ResY: DWord); 
var 
  lDeviceMode : TDeviceMode; 
begin 
  EnumDisplaySettings(nil, 0, lDeviceMode); 
  lDeviceMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT; 
  lDeviceMode.dmPelsWidth := ResX; 
  lDeviceMode.dmPelsHeight := ResY; 
  ChangeDisplaySettings(lDeviceMode, 0); 
end;

コメント (0件)

くろねこ研究所: https://www.blackcat.xyz/article.php/ProgramingFAQ_del0017