[Delphi] Blokowanie Menedżera Zadań w XP

Witam :!

Kiedyś na 4programmers.net był kod,który blokował skrót [Ctrl] + [Alt] + [Del].Niestety nie działał on na systemie XP.Kiedyś mi się tak nudziło i napisałem kodzik,który to wykonuje.Postanowiłem go tutaj podać.

UWAGA :! :! :! :!
Ten kod zamieściłem tutaj wyłącznie w celach edukacyjnych.Proszę zatem nie wykorzystywać go w jakiś wirusach :!

====================================

Najpierw umieść na formie komponent Timer i w zdarzeniu OnTimer komponentu wpisz:

procedure TForm1.Timer1Timer(Sender: TObject); var  hwnd : THandle; begin  hwnd := FindWindow(nil, 'Menedżer zadań Windows');  SendMessage(hwnd, WM_CLOSE, 0, 0); end;

Dajcie znać gdyby kodzik nie działał 8)

Zasady są po to,aby je łamać... :crowd:

Tel.: 506 625 248
E-mail: patryknusbaum@interia.pl
GG: 4128910

Masz simlocka na Nokii?
Pisz do mnie!

---

Dzieki za kod... Przyda sie :P jka cos nie bedzie działało to napisze ;)

---------------------->

GG: 3871670
e-mail: yoyek_karol@wp.pl
site: www.yoyek.kojot.prv.pl

YoYek Master - Delphi NoN StOp !!!

wg mnie to ten kod nie blokuje Menedżera zadań tylko go zabija czyli, aby spełniał swoje zadania musi program startować wraz z systemem i Timer musi mieć jakiegoś małego Intervala

//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
callto://beldzio_software

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl