>i developed a small application where i force some application to quit!
>
>DECLARE SHORT PostMessage In win32api ;
> INTEGER hWnd, ;
> INTEGER uMsg, ;
> INTEGER wParam, ;
> INTEGER lParam
> zzzzzzzz = UPPER(ALLTRIM(JANELA))
> mhandle = ISRUN("&zzzzzzzz")
> IF mhandle <> 0 && ESTÁ RODANDO - DESCARREGAR !!!!!!!!!!!!!!!!!!!!!!!!!
> =PostMessage(mhandle,16,0,0)
>endif
>
>at same computers (win 98 SE) if the screen saver is active, the application can't force quit the programs!
>
>any idea?
>
sergio

Try the following (applies only to Win98 and 2K).

#DEFINE SPI_GETSCREENSAVERRUNNING 114
DECLARE INTEGER SystemParametersInfo IN Win32API;
  INTEGER uiAction, SHORT uiParam,;
  INTEGER @pvParam, INTEGER fWinIni
lvParm = 0
llresult = (SystemParametersInfo(SPI_GETSCREENSAVERRUNNING, 0, @lvParm, 0) # 0)
IF llresult
  IF lvParm # 0
    ? "Screen Saver Running"
  ELSE
    ? "Screen Saver not Running"
  ENDIF
ELSE
  ? "API Called failed"
ENDIF