|
▼ SOさん
> 電源プランで「モニタの電源を切る」をOFFにすればOK?
御意 !!
んでもってサンプルコードです．
動作確認は Windows 7 U64(SP1) + Delphi XE5(UP2) Pro VCL-32 です．
//=============================================================================
// モニタ(ディスプレイ)の電源を切らない設定
// タイムアウト時間を 0 にすれば無効となる
// 電源オプションの設定ダイアログでは表示が [なし] になる
//
// uses にShellAPI が必要
//=============================================================================
procedure TForm1.Button3Click(Sender: TObject);
var
LCmdExe : string;
LOption : string;
begin
LCmdExe := 'powercfg.exe';
LOption := '/CHANGE monitor-timeout-ac 0';
ShellExecute(Handle, '', PChar(LCmdExe), PChar(LOption), nil, SW_HIDE);
end;
|