Suche API um Bildschirm einzuschalten

[DoktorD]

Hi. Ihr kennt doch bestimmt die Einstellungen in Windows bei den Energieoptionen. U.a. ist da ja, das der Bildschirm nach der vorgegebenen Zeit ausgeschaltet wird.

Wie kann ich dies in Delphi abfragen, oder auch den Bildschirm wieder ein- oder ausschalten?

Danke für Eure Hilfe.

[inherited]

Mit

Delphi-Quellcode:

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

kannst du den Monitor ausschalten, mit

Delphi-Quellcode:

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

kannst du ihn wieder einschalten

Das hättest du aber auch alles mit der Suchfunktion herausgefunden.

[DoktorD]

Super, danke!!! Habe echt vorher gesucht, aber das hab ich net gefunden

[DoktorD]

Irgendwie klappt das trotzdem nicht.

Ich starte das Programm. Nach einer Minute schaltet Windows den Bildschirm aus. Dann läut im Programm der Timer, der den Bildschirm dann einschalten sollte.

Ich sehen den aber nur für einen bruchteil der Sekunde, danach ist wieder alles schwarz.

Ihr könnt ja mal meinen Quellcode ausprobieren.

Delphi-Quellcode:

var
  Form1: TForm1;
  Zeit : Integer;

implementation

{$R *.dfm}

procedure TForm1.BildschirmAusschalten;
begin
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);
end;

procedure TForm1.BildschirmEinschalten;
begin
  SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Zeit := 10;
  BildschirmEinschalten;
end;

procedure TForm1.btnOnClick(Sender: TObject);
begin
  BildschirmEinschalten;
end;

procedure TForm1.btnOffClick(Sender: TObject);
begin
  BildschirmAusschalten;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
BildschirmEinschalten
end;

end.

[Zacherl]

Du könntest alternativ in den Energieoptionen einfach einstellen, dass Windows den Bildschirm gar nicht erst ausschaltet.

[bitsetter]

Hallo,

bei mir funktioniert dein Code so wie er soll. Der Monitor wird abgeschaltet und nach Ablauf des Timers schaltet er sich wieder an und bleibt es dann auch.

[xxl1]

vllt musst du noch die grafikkarte "einschalten", für die gibts ja auch nen energiesparmodus....

[Mackhack]

Hi,

ich hab grad mal in der MSDN nachgesehen und fand das:

Zitat:

SC_MONITORPOWER
Sets the state of the display. This command supports devices that have power-saving features, such as a battery-powered personal computer.

The lParam parameter can have the following values:

1 - the display is going to low power

2 - the display is being shut off

Wenn 1 fuer low power ist und 2 fuer shut off wie bekommt man denn dann den Monitor wieder angeschaltet, oder muss man interpretieren dass 1 fuer low power "Monitor an" bedeutet?

[DoktorD]

Naja, einschalten kann man den Bildschirm ja mit -1

[Mackhack]

Zitat:

Zitat von DoktorD

Naja, einschalten kann man den Bildschirm ja mit -1

Und wo steht das?