ScreenOff - Monitor mit zwei Klicks im Standby

[Pr0g]

Ich nutze den gleichen Code, nur dass ich nix 1.4 cm zum Einschalten bewegen muss

Delphi-Quellcode:

program ScreenOff;

uses
  Windows,
  Messages;

{$R *.res}

begin
  Sleep(100);
  SendMessage(GetDesktopWindow() , WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end.