[Delphi] Jak wyłączyć monitor ?

jak programowo wyłączyć minitor?
a po poruszeniu mychą odpoalić go ?

A tak na marginesie ten b4p 1.4 to jak zwykle niedoróbka :(
--&gt &gt ( DELPHI 5 ) &lt &lt
&gt &gt &gt DELPHI 6 &lt &lt &lt

FAQ FAQ FAQ :-)--pozdrawiam PEDROS {hello}

Encyklopedia was potrzebuje:
www.4programmers.net/delphi/help.php

Delphi 6 Personal.

Procedure Wygaszacz(Bool:Boolean);
Begin
SendMessage(GetDesktopWindow,WM_SysCommand,SC_ScreenSave,IIf(Bool,-1,0))
End;

Procedure Monitor(Bool:Boolean);
Begin
SendMessage(GetDesktopWindow,WM_SysCommand,SC_MonitorPower,IIf(Bool,-1,0))
End;
--Szymek

Doświadczenie - jest to coś co zdobywasz tuż po chwili kiedy go potrzebowałeś.

klaster napisał:
A tak na marginesie ten b4p 1.4 to jak zwykle niedoróbka :(

A co powiesz o windowsach? :D

Może powiesz mi co nie działa. Albo jeszcze lepiej sam weź się za naprawę.--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Procedure Monitor(Bool:Boolean);
Begin
SendMessage(GetDesktopWindow,WM_SysCommand,SC_MonitorPower,IIf(Bool,-1,0))
End;
--Szymek

Ale powyższe nie dziala w XP!

To poszukaj na http://torry.net.