このサンプルアプリケーションは、画面の解像度を変更する方法を示しています。
※注意 このサンプルの使用においては、注意して使用してください。 ハードウェアの対応外の解像度に設定した場合、そのハードウェアに悪影響がある場合があります。
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;
以下のコメントは、その投稿者が所有するものでサイト管理者はコメントに関する責任を負いません。