*****************************************************************
* Neveprise Inc. Delphi FAQ					*
*****************************************************************
* Section: Desktop		Topic:   Suspend monitor	*
* Created: July 27th, 1999	Revised: July 27th, 1999 	*
* Updates: www.neveprise.de	Info:	 support@neveprise.de	*
*****************************************************************

Q: How can I send the monitor to suspend mode?

A: We can accomplish this by sending Windows a message to do so.
	The trick is to know the correct parameters:


procedure MonitorPowerH(AppHandle: THandle; PowerOn: boolean);
begin
if PowerOn=true then SendMessage(AppHandle,WM_SysCommand,SC_MonitorPower,-1)
   else SendMessage(AppHandle,WM_SysCommand,SC_MonitorPower,0);
end;



	Blazko