klavye tuşlarını kilitleme-ekran koruyucusunu kapatma

[eduran]

arkadaşlar bulduğum kodlarla klavyeyi ve ekran koruyucusunu kilitlemeye çalışıyorum fakat başarılı olamadım. bu konuda bilgisi olanlar yardım edebilir mi? teşekkür ederim. kolay gelsin...

[mrmarman]

Selam...

- Windows mesaj sistemi hakkında daha önce bir çok defa bahsetmiştim... Forumda arama yaparsanız bulabilirsiniz...

- Bilgisayrda bir kullanıcı tarafından yapılan her hareket (mouse hareketi, klavye tuşa basma vs.) Windows'a bir mesaj ile iletilir...

- Aynı Windows sistemimiz, programınızı ilgilendirdiğini düşündüğü olayları da programınıza ait mesaj listesine yollar... Ekran koruyucu da bu tip bir mesajdır...

- Yani anlatmak istediğim şey, programınız dışında başka bir prpgramda tuşa basılırsa, bunu programınız normal yollarla algılamaz.. İstediğiniz taktirde Hook denen kanca metoduyla bunu takibe almanız gerekir... Ama sözkonusu olay bir ekrankoruyucu ise, sizin programınızı da etkileyeceğinden mesaj olarak okuyabilirsiniz...

- Bunun için kısayoldan formunuza windows mesajlarından programınıza ait/ilgili olanları bildiren ve Delphi'nin bileşen paletinde Additional kısmında bulacağınız Application Events bileşenini koyun...

- ApplicationEvents1 gibi bir isim alacak bu bileşenin Events kısmında OnMessage olayına şunları yazın...

Kod: Tümünü seç

  if((WM_SYSCOMMAND = Msg.Message) and
     (SC_SCREENSAVE = Msg.wParam) )
     then Handled := True;

Kod: Tümünü seç

Handled := True;

satırı anahtar işlevi yerine getirir... Ekran koruyucunun başlama olayını üzerine alır ve o mesajı tabiri doğru mu bilemiyorum ama söndürür...

- Bu kavramlar ışığında ihtiyacınız olan windows mesajlarını tespit eder ve takibe alırsanız, windows'u dizginlemiş olursunuz...