Delphi dicas

Desligar o monitor

Procedure TForm1.Button10Click(Sender: TObject);

begin

        //desliga monitor

        SendMessage(Application.Handle, WM_SYSCOMMAND,          SC_MONITORPOWER, 1)

end;

por : Cleyton C. Esteves