スクリーンセイバーや電源監視を停止、開始するには？

解決

ちは 2005-08-11 00:39:29 No: 16961

Win2000 Delphi7で作業しています。
作成したアプリが実行中、スクリーンセイバーの停止／開始や
モニタの省電力機能にある「モニタの電源を切る」「ハードディスクの電源を切る」「システムスタンバイ」
を無効にしたり有効にしたりしたいのですが、どうすればよいのでしょうか？

パクリマン 2005-08-11 01:13:43 No: 16962

procedure TForm1.Button1Click(Sender: TObject);
var
   //スクリーンセイバーを停止
   SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, false,0,
         SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   //実行
   SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, true,0,
         SPIF_UPDATEINIFILE | SPIF_SENDWININICHANGE);
end;

ちは 2005-08-12 00:42:11 No: 16963

SystemParametersInfoですか、色々出来るみたいですね、
いろいろ試してみます。
パクリマン様どうもありがとうございました。