Bildschirm bei Bewegungserkennung anschalten

[hathor]

Folgender Code funktioniert auch unter WINDOWS 7 ULTIMATE 64:

Delphi-Quellcode:

program DISPLAYOFF;       //oder DISPLAYON

//{$APPTYPE CONSOLE}

uses
  Windows;

const WM_SYSCOMMAND = 274;
      MONITOR_OFF = 2;
      MONITOR_ON = -1;
Begin
  sleep(2000);
      PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF);// oder MONITOR_ON
  sleep(2000);
  Exit;
end.