[[escafandra]]

Código Delphi [-]
// Monitor power on
SendNotifyMessage(GetForegroundWindow(), WM_SYSCOMMAND, SC_MONITORPOWER, -1);
for i:= 0 to 4 do
begin
    mouse_event(MOUSEEVENTF_MOVE, 0, 10, 0, 0);
    Sleep(40);
    mouse_event(MOUSEEVENTF_MOVE, 0, DWORD(-10), 0, 0);
end;

Saludos.