記事カテゴリ

ユーザー機能


 2024年4月27日(土) 18:51 JST

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

  • 投稿者:
  • 表示回数
    3,705
以下のサンプルコードを参考にしてください。
このサンプルアプリケーションは、画面の解像度を変更する方法を示しています。
※注意 このサンプルの使用においては、注意して使用してください。 ハードウェアの対応外の解像度に設定した場合、そのハードウェアに悪影響がある場合があります。
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;

トラックバック

このエントリのトラックバックURL:
https://www.blackcat.xyz/trackback.php/ProgramingFAQ_del0017

以下のコメントは、その投稿者が所有するものでサイト管理者はコメントに関する責任を負いません。