スクリーンセーバーを制御する



■必要なコンポーネント

■使用するAPI関数

■ソースは下記のようになります。

スクリーンセーバーを実行する処理
procedure TForm1.Button1Click(Sender: TObject);
begin

//スクリーンセーバーを実行する
SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0)

end;




Win32APIのページへ



ホーム PV ランキング