掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
解像度の変更 (ID:22079)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> マルチモニターで、片側だけの解像度を変えたい場合 動作未確認ですが、以下でどうでしょう。 var DevNum: DWORD; Display: TDisplayDevice; Flags, Flags2: DWORD; DevMode: TDeviceMode; Const ENUM_CURRENT_SETTINGS: DWORD = $FFFFFFFF; // High(DWORD) - 1 ENUM_REGISTRY_SETTINGS: DWORD = $FFFFFFFE; // High(DWORD) - 2 DISP_CHANGE_SUCCESSFUL = 0; DISP_CHANGE_RESTART = 1; DISP_CHANGE_FAILED = -1; DISP_CHANGE_BADMODE = -2; DISP_CHANGE_NOTUPDATED = -3; DISP_CHANGE_BADFLAGS = -4; DISP_CHANGE_BADPARAM = -5; begin DevNum:= 1; //セカンド・ディスプレイ Display.cb := sizeof(Display); Flags := 0; EnumDisplayDevices(nil, DevNum, Display , Flags); EnumDisplaySettings(Display.DeviceName, ENUM_CURRENT_SETTINGS, DevMode); with DevMode do begin dmPelsWidth := 800; dmPelsHeight := 600; end; Flags2 := 0; if ChangeDisplaySettingsEx(Display.DeviceName, DevMode, 0, Flags2, 0) = DISP_CHANGE_SUCCESSFUL then showMessage('Success'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.