Start Screensaver in win95 and win98

[brianod]

Hi, I really need code that can start the default screensaver in both windows 95 and 98. but so far all the code i found starts the screensaver in win95 but activates the suspend mode in win98! does anybody have any idea on how i can accomplish starting the default screensaver in both versions of windows? maybe i could access the registry to find the default screensaver or something... any ideas are much needed! thanks in advance

[Clunietp]

Works fine for me under Win98:


Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&

Public Sub ActivateScreenSaver()

Dim ret As Long 'junk return value
Dim desktop As Long 'desktop handle
desktop = GetDesktopWindow
ret = SendMessage(desktop, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)

End Sub