Das deutschsprachige Forum für Entwickler in der Xbase-Welt, ein Angebot des Deutschsprachige Xbase-Entwickler e. V.
https://www.xbaseforum.de/
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)