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> |