投稿日 | : 2002/09/10(Tue) 10:59 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : WindowsXPでスクリーンセーバーを起動 |
Windows98 ではスクリーンセーバーを起動する事が出来るのですが
WindowsXP では同じ操作では起動できません。
ある方から下記のようなメールを頂いたのですが、試して見てもやはり起動
しませんでした。
>XP では起動しませんってのとこですが,
>SendMessage(GetDesktopWindow(), WM_SYSCOMMAND, SC_SCREENSAVE, NULL);
>にてちゃんと起動します.
Option Explicit
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 Declare Function GetDesktopWindow Lib "user32" () As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_SCREENSAVE = &HF140
Private Sub Command1_Click()
Dim Ret As Long
Dim hwnd As Long
hwnd = GetDesktopWindow
Ret = SendMessage(hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, ByVal vbNullString)
End Sub
どなたかWindowsXPでスクリーンセーバーを起動する方法をご存知の方
教えて頂けないでしょうか?