| 投稿日 | ： 2002/09/10(Tue) 23:33 |
| 投稿者 | ： 花ちゃん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： (解決)WindowsXPでスクリーンセーバーを起動 |
あれから、色々調べていて、定数を Long 型に型指定する事で起動できる
ようになりました。
Private Const SC_SCREENSAVE = &HF140 → Private Const SC_SCREENSAVE = &HF140&
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_SCREENSAVE = &HF140&
Private Sub Command1_Click()
Dim Ret As Long
Dim hwnd As Long
Ret = SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, ByVal 0&)
End Sub
その部分が問題で、後は PostMessage API を使っても GetDesktopWindow API を使っても
関係ないようでした。
お騒がせしました。