Monitörü Kapatmak ..

[s1lv3r]

Delphi ile mönitörü nasıl kapatıp açabiliriz ?

[Murat DİCLE]

XP de denemedim ama 98 makinalarda işe yarıyordu.

Kod: Tümünü seç

POwerSave moda geçmek (kapatmak) için
Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,2); 

Tekrar açmak için
Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,-1); 

Ayrıca bilgi olsun diye veriyorum, bilgisayar ekran korumaya geçtiğinde, powersave moduna geçtiğinde ve bilgisayar logoff olaylarını iptal etmek için şunları yapmanız gerekiyor.

Kod: Tümünü seç

.
.
.
procedure TForm1.FormCreate....
begin
.
.
Application.OnMessage := AppOnMes;
.
.
end;

procedure TForm1.AppOnMes(var Msg: TMsg; var Handled: Boolean);
begin
   if (Msg.Message = WM_SYSCOMMAND) and
      (
      (Msg.wParam = SC_SCREENSAVE) OR
      (Msg.wParam = SC_MONITORPOWER)
      ) then Handled := True;
   // Windows'un kapanması, logoff olmaması için.
   if (Msg.Message = WM_ENDSESSION) then Handled := True;
end;

Saygılar...

[s1lv3r]

XP de maalesef çalışmıyor. XP de çalışan bir kod biliyor musunuz ?

[mrmarman]

Selam.

- Ben de XP Pro SP2'li makinemde denedim - çalışıyor...

http://support.microsoft.com/?kbid=818133 linkinden gerekli incelemeyi yapıp tekrar deneyin isterseniz...

[s1lv3r]

Pardon bir hata yapmıştım. Teşekkürler işe yaradı.