Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Stand-by für Monitore

Hallo,

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

  SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,2);

end;

HTH.

Grüsse, Daniel

PS: Ich verschiebe das mal nach WinAPI.

Daniel B (Gast) n/a Beiträge	#2 26. Jun 2003, 22:37 Hallo, markieren Delphi-Quellcode: procedure TForm1.Button1Click(Sender: TObject); begin SendMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,2); end; HTH. Grüsse, Daniel PS: Ich verschiebe das mal nach WinAPI.
	Zitat