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 Bildschirm mittels Funktion ausschalten (https://www.delphipraxis.net/103659-bildschirm-mittels-funktion-ausschalten.html)

T.E. 19. Nov 2007 14:13


Bildschirm mittels Funktion ausschalten
 
Hallo!!

Ich möchte gerne ein Programm schreiben, das nach einer bestimmten verstrichenen Zeit die Bildschrim/die Bildschrirmbeleuchtung ausschaltet... nur wüsst ich gerene wie das geht bzw. ob das geht...

ich weiß nämlich nur das bei Notebooks i.d.R. immer eine Tastenkombinatiion vorhanden ist, um den Bildschirm auszuschalten...

Weiß jemand wie ich den bildschirm auschhalten kann?

Tommy1988 19. Nov 2007 14:17

Re: Blidschrim mittels Funktion ausschalten
 
Bildschirm aus:
Delphi-Quellcode:
SendMessage(Application.Handle,
WM_SYSCOMMAND, SC_MONITORPOWER, 1);
Bildschirm an:
Delphi-Quellcode:
SendMessage(Application.Handle,
WM_SYSCOMMAND, SC_MONITORPOWER, 0);
Jetzt musst du das nurnoch in deine Routine packen

T.E. 19. Nov 2007 14:21

Re: Blidschrim mittels Funktion ausschalten
 
hat ich leider schon versucht, nur leider ohne ergebnis...

Tommy1988 19. Nov 2007 14:41

Re: Blidschrim mittels Funktion ausschalten
 
Zitat:

Zitat von T.E.
hat ich leider schon versucht, nur leider ohne ergebnis...

Zeig mal deinen Code her.

Der oben von mir gepostete Code "MUSS" (Edit) funktionieren das geht garnicht anders..

Edit: Hät ich mal Google benutzt

Bernhard Geyer 19. Nov 2007 14:48

Re: Bildschirm mittels Funktion ausschalten
 
Wenn du nach SC_MONITORPOWER googelst bekommst du auch Einträge das dies Aufgrund von Fehlern in Grafikkartentreibern nicht funktioniert.

hathor 19. Nov 2007 15:48

Re: Bildschirm mittels Funktion ausschalten
 
Info:

const
MONITOR_ON = -1;
MONITOR_OFF = 2;
MONITOR_STANDBY = 1;


SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_STATE);

More specifically,
Turn the monitor ON, using:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON);


Turn the monitor OFF, using:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF);


Put the monitor to STAND BY, using:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_STANDBY);


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:09 Uhr.

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