$("#ray_7587").html("\n
1<\/a>
2<\/a>
3<\/a>
4<\/a>
5<\/a>
6<\/a>
7<\/a>
8<\/a>
9<\/a>
10<\/a><\/strong>
11<\/a>
12<\/a>
13<\/a>
14<\/a>
15<\/a>
16<\/a><\/pre><\/td>\n  
Program<\/span> <\/span>Project1<\/span>;<\/span>

<\/span>{$APPTYPE CONSOLE}<\/span>

<\/span>Uses<\/span>
    <\/span>SysUtils<\/span>,<\/span> <\/span>Windows<\/span>,<\/span> <\/span>Messages<\/span>;<\/span>

<\/span>Const<\/span>
    <\/span>SC_MONITORPOWER<\/span> <\/span>=<\/span> <\/span>$F170<\/span>;<\/span>

<\/span>Begin<\/span>
    <\/span>SendMessage<\/span>(<\/span>HWND_BROADCAST<\/span>,<\/span> <\/span>WM_SYSCOMMAND<\/span>,<\/span> <\/span>SC_MONITORPOWER<\/span>,<\/span> <\/span>2<\/span>)<\/span>;<\/span> <\/span>{Sleep}<\/span>
    <\/span>Sleep<\/span>(<\/span>10000<\/span>)<\/span>;<\/span>
    <\/span>SendMessage<\/span>(<\/span>HWND_BROADCAST<\/span>,<\/span> <\/span>WM_SYSCOMMAND<\/span>,<\/span> <\/span>SC_MONITORPOWER<\/span>,<\/span> <\/span>-<\/span>1<\/span>)<\/span>;<\/span> <\/span>{Wakey wakey}<\/span>
    <\/span>Sleep<\/span>(<\/span>10000<\/span>)<\/span>;<\/span>
<\/span>End<\/span>.<\/span><\/pre><\/td>\n<\/tr><\/table>\n\n");