Monitor power

Delphi code posted
created at 23 Jul 05:47

Edit | Back 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Program Project1;

{$APPTYPE CONSOLE}

Uses
    SysUtils, Windows, Messages;

Const
    SC_MONITORPOWER = $F170;

Begin
    SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 2); {Sleep}
    Sleep(10000);
    SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, -1); {Wakey wakey}
    Sleep(10000);
End.
334 Bytes in 4 ms with coderay