Hallo,
kann man unter Xbase eine Art Bildschirmschoner oder den Windows Bildschirm schoner aktivieren?
Gruß Stefan
Bildschirm Schoner aktivieren
Moderator: Moderatoren
- AUGE_OHR
- Marvin
- Beiträge: 12906
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 45 Mal
Re: Bildschirm Schoner aktivieren
JAmini990 hat geschrieben:kann man unter Xbase eine Art Bildschirmschoner oder den Windows Bildschirm schoner aktivieren?
Code: Alles auswählen
#include "DLL.CH"
#include "OS.CH"
#define SPI_GETSCREENSAVEACTIVE 16
#define WM_SYSCOMMAND 0x0112
#define SC_SCREENSAVE 0xF140
PROCEDURE MAIN
DO CASE
CASE Os(OS_FAMILY) == "WIN9X"
if ScreenSaverExists()
DllCall("User32.DLL", DLL_STDCALL, "SendMessageA", ;
AppDesktop():GetHWnd(), WM_SYSCOMMAND, SC_SCREENSAVE, 0, 0)
endif
CASE Os(OS_FAMILY) == "WINNT"
RunShell( "User32.dll,LockWorkStation", "Rundll32.exe", .T. )
ENDCASE
RETURN
* ------------------------- *
Function ScreenSaverExists()
LOCAL nActive := 0
DllCall("User32.dll", DLL_STDCALL, "SystemParametersInfoA", ;
SPI_GETSCREENSAVEACTIVE, 0, @nActive, 0)
return (nActive # 0)
gruss by OHR
Jimmy
Jimmy