XP de Programı CTRL+ALT+DEL Kombinasyonundan Gizleme

[metemete]

Kod: Tümünü seç

... 
implementation 

function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL'; 

{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  // sakla 
  RegisterServiceProcess(GetCurrentProcessID,1); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  // tekrar göster 
  RegisterServiceProcess(GetCurrentProcessID,0); 
end; 

98 de calısıyorda XP de calısmıyor?
Bir zaman internette cok araştırmıstım ama bulamadım bir türlü.

[MicroChip]

Kod: Tümünü seç

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; 

Kullanımı
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  DisableTaskMgr(True); 
end;

Saygılar

[metemete]

Yardımın için teşekkürler ama bu kod sadece Görev yöneticisini devre dışı bırakıyor.

Ben Calışan Uygulamamın Görev yönetici listesinde görünmesin istiyorum?