Tampaknya ini baca-tulis registry, saya pikir akan bermasalah bila usernya
bukan kelas admin atau super user.
Anyway thx a lot guy.
----- Original Message -----
From: "Ahmad VR (Delphindo)" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, June 18, 2003 7:22 PM
Subject: Re: [Delphindo] Mematikan ctrl+alt+del
> > Saya jalankan di win XP ternyata enggak berpengaruh apa2.
> > Tombol2 tsb tetap jalan normal.
> > Apakah program di atas tidak berlaku di WinXP atau...???
> > Mohon pencerahannya.
>
> Mungkin bisa coba pakai procedure berikut:
>
> uses Registry;
>
> procedure TForm1.DisableTaskMgr(bTF: Boolean);
> var
> reg: TRegistry;
> begin
> reg := TRegistry.Create;
> reg.RootKey := HKEY_CURRENT_USER;
>
> reg.OpenKey('Software', True);
> reg.OpenKey('Microsoft', True);
> reg.OpenKey('Windows', True);
> reg.OpenKey('CurrentVersion', True);
> reg.OpenKey('Policies', True);
> reg.OpenKey('System', True);
>
> if bTF = True then
> begin
> reg.WriteString('DisableTaskMgr', '1');
> end
> else if bTF = False then
> begin
> reg.DeleteValue('DisableTaskMgr');
> end;
> reg.CloseKey;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> // disable
> DisableTaskMgr(True);
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> begin
> // enable
> DisableTaskMgr(False);
> end;
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Looking for the latest Free IT White Papers?
Visit SearchSecurity.com to access over 500 white papers.
Get instant access at SearchSecurity.com Today
http://us.click.yahoo.com/.lAzoD/QLNGAA/witMAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
