SPI_GETSCREENSAVERRUNNING for win98

i need to determine if the screensaver is running.

i ask this q here, but the codes doent works.

the os im using is : win98

i saw in the msdn that i need to use :
SPI_GETSCREENSAVERRUNNING

for win98.

what is the numeric value of this constant.

and someone can help me with this task ..

how to determine in win98 if screensaver is Currently running or not.

pls. try the code first and then answer.

thanks and have a nice day.

Private Const SPI_SCREENSAVERRUNNING = 97

Use this to find out if a screen saver is running

Code:

---

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" _
                                (ByVal uAction As Long, _
                                ByVal uParam As Long, _
                                ByRef lpvParam As Any, _
                                ByVal fuWinIni As Long) As Long

Private Const SPI_GETSCREENSAVERRUNNING = 114

Private Function IsScreenSaverRunning() As Boolean
    Dim lngResult As Long

    Call SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, _
                              0, _
                              lngResult, _
                              0)
    IsScreenSaverRunning = (lngResult <> 0)
End Function

---