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