Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Ereignis des Screensavers ? (https://www.delphipraxis.net/22814-ereignis-des-screensavers.html)

Dannyboy 24. Mai 2004 13:59


Ereignis des Screensavers ?
 
Hallo zusammen,
ich habe ein Programm geschrieben, welches immer aktiv ist.
Dieses Programm soll seinen Hauptprozess immer nur dann ausführen, wenn ein
Bildschirmschoner gerade aktiv ist.

Gibt es unter den Windows-Messages evtl. ein Ereignis, welches mir verrät,
ob ein Bildschirmschoner im Augenblick aktiv ist :gruebel:
Thanx
DANNYBOY

Jens Schumann 24. Mai 2004 14:02

Re: Ereignis des Screensavers ?
 
Hallo,
ich habe keine Antwort, aber eine Frage: Was macht Dein Programm, wenn der User keinen Bildschirmschoner aktiviert hat :gruebel:

Dannyboy 24. Mai 2004 14:06

Re: Ereignis des Screensavers ?
 
Zitat:

Zitat von Jens Schumann
Hallo,
ich habe keine Antwort, aber eine Frage: Was macht Dein Programm, wenn der User keinen Bildschirmschoner aktiviert hat :gruebel:

Es wartet auf den Bildschirmschoner. :mrgreen:

Steve 24. Mai 2004 14:07

Re: Ereignis des Screensavers ?
 
Bei Google suchenSPI_GETSCREENSAVEACTIVE SystemParametersInfo

siehe auch MSHelp\win32.hlp :)

Gruß
Stephan

Dannyboy 24. Mai 2004 14:10

Re: Ereignis des Screensavers ?
 
Zitat:

Zitat von Steve
Bei Google suchenSPI_GETSCREENSAVEACTIVE SystemParametersInfo

siehe auch MSHelp\win32.hlp :)

Gruß
Stephan

Yo, cool, danke. :thuimb: :thuimb: :thuimb:

Steve 24. Mai 2004 14:11

Re: Ereignis des Screensavers ?
 
Gern geschehn :zwinker:

nailor 24. Mai 2004 14:52

Re: Ereignis des Screensavers ?
 
du kannst auch diese message abfangen:

Code:
if message = WM_SYSCOMMAND then            // Intercept System Commands
    begin
      case wParam of                         // Check System Calls
        SC_SCREENSAVE, SC_MONITORPOWER:      // Screensaver Trying To Start, Monitor Trying To Enter Powersave?
          begin
            result := 0;                     // Prevent This From Happening
            exit;                            // Exit
          end;
      end;
    end;
die wird von windows rundgeschickt, bevor windows sich erlaubt eben dieses zu tun (falls kein programm einspruch erhebt)


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:56 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz