Linsting untuk menonaktifkan dan mengaktifkan tombol CTRL+ALT+DEL ini kok ngak berfungsi ya mas ( ane pakai Win NT ) : procedure TMainForm.NonAktif(State : Boolean); var pvParam : Integer; Begin If State = True then SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@pvParam,0) else SystemParametersInfo(SPI_SCREENSAVERRUNNING,0,@pvParam,0); end; procedure TMainForm.FormCreate(Sender: TObject); begin NonAktif(True); end; procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin NonAktif(False); end;

coba pake yang ini :

procedure 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;
// Example Call:
procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableTaskMgr(True);
end;

hehehehe .... :D :D :D Tetep Semangat !!!

Ndak mempan juga mas :x

Masa sich .... pake Win NT yach ... ? klo saya pake Win XP kok bisa, apa beda yach Win NT sama Win XP .... ? :-? Perasaan sama tuch arsitekturnya memakai NT Teknologi .... :D CMIIW .....

Udah bisa mas, ane pakai source code dari Torry.Net procedure EnableCTRLALTDEL(YesNo : boolean); const sRegPolicies = '\Software\Microsoft\Windows\CurrentVersion\Policies'; begin with TRegistry.Create do try RootKey:=HKEY_CURRENT_USER; if OpenKey(sRegPolicies+'\System',True) then begin case YesNo of False: begin WriteInteger('DisableTaskMgr',1); end; True: begin WriteInteger('DisableTaskMgr',0); end; end; end; CloseKey; if OpenKey(sRegPolicies+'\Explorer',True) then begin case YesNo of False: begin WriteInteger('NoChangeStartMenu',1); WriteInteger('NoClose',1); WriteInteger('NoLogOff',1); end; True: begin WriteInteger('NoChangeStartMenu',0); WriteInteger('NoClose',0); WriteInteger('NoLogOff',0); end; end; end; CloseKey; finally Free; end; end;

Hello, SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@pvParam,0) itu hanya bisa dipakai keluarga non-NT ( Windows 98/ME only !),maka untuk windows XP (a.k.a NT 5.1) tidak bisa memakai cara begitu. gw ada ide dikit. selain mengubah registry maka lebih baik membunuh window TaskMgr aja. semoga ini membantu. procedure KillTaskMgr; var hh : HWND; begin hh := FindWindow(nil,'Windows Task Manager'); if hh <> 0 then postmessage(hh,WM_CLOSE,0,0); end; procedure TMainForm.Timer1(Sender : TObject); begin KillTaskMgr; end; atau menggunakan komponen dWinLock. search aja di forum ini.bye

Udah bisa mas, ane pakai source code dari Torry.Net ....

Nach ... gitu dunk .... good job p'guru ........ :D