スクリーンセーバーの確認          <TOP>

設定されているスクリーンセーバーを確認します。

SendMessage ウィンドウメッセージを送信

WM_SYSCOMMAND(&H112) システムメニューが操作された
SC_SCREENSAVE(&HF140) スクリーンセーバーを実行するメッセージ
　

「確認」ボタンをクリックすると、設定されている場合はスクリーンセーバーが表示されます。設定されていない場合は画面の変化はありません。

 

　

'================================================================
'= スクリーンセーバーの確認
'=    (ScreenSaver.bas)
'================================================================
#include "Windows.bi"

' ウィンドウにメッセージを送信。この関数は、指定したウィンドウのウィンドウプロシージャが処理を終了するまで制御を返さない
Declare Function Api_SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, ByVal wParam&, ByVal lParam&)

#define WM_SYSCOMMAND &H112             'システムメニューが操作された
#define SC_SCREENSAVE &HF140            'スクリーンセーバーを実行するメッセージ

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    Ret = Api_SendMessage(GethWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End