Bildschirm Schoner aktivieren

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
Benutzeravatar
mini990
1000 working lines a day
1000 working lines a day
Beiträge: 592
Registriert: Sa, 28. Jan 2006 9:44
Wohnort: Berg-Richtheim bei Neumarkt i.d.Opf.
Danksagung erhalten: 1 Mal

Bildschirm Schoner aktivieren

Beitrag von mini990 »

Hallo,
kann man unter Xbase eine Art Bildschirmschoner oder den Windows Bildschirm schoner aktivieren?

Gruß Stefan
Benutzeravatar
AUGE_OHR
Marvin
Marvin
Beiträge: 12903
Registriert: Do, 16. Mär 2006 7:55
Wohnort: Hamburg
Hat sich bedankt: 19 Mal
Danksagung erhalten: 44 Mal

Re: Bildschirm Schoner aktivieren

Beitrag von AUGE_OHR »

mini990 hat geschrieben:kann man unter Xbase eine Art Bildschirmschoner oder den Windows Bildschirm schoner aktivieren?
JA

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
Benutzeravatar
mini990
1000 working lines a day
1000 working lines a day
Beiträge: 592
Registriert: Sa, 28. Jan 2006 9:44
Wohnort: Berg-Richtheim bei Neumarkt i.d.Opf.
Danksagung erhalten: 1 Mal

Re: Bildschirm Schoner aktivieren

Beitrag von mini990 »

Besten Dank!

Gruß Stefan
Antworten