Arsip: CTRL+ALT+DEL

 
user image
more 17 years ago

umarbakri

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;
user image
more 17 years ago

kaka-delphi

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 !!!
user image
more 17 years ago

umarbakri

Ndak mempan juga mas :x
user image
more 17 years ago

kaka-delphi

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 .....
user image
more 17 years ago

umarbakri

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;
user image
more 17 years ago

xerion

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
user image
more 17 years ago

kaka-delphi

Udah bisa mas, ane pakai source code dari Torry.Net ....
Nach ... gitu dunk .... good job p'guru ........ :D
more ...
  • Pages:
  • 1
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com