Ocultar Aplicación

[P@kito]

Hola que tal :D

Espero puedan echarme una manita con esto sucede que necesito que un aplicación se oculte de la lista que aparece cuando se preciona Ctr+Alt + Surp ya intente un codigo que encontre en www.q3.nu pero me sale un error que no existe o no se puede crear Kernel32.dll dicho archivo es el que tiene esa función Uso Win Xp Profecional y delphi 4

Gracias . . . . :rolleyes: :p

[DarkByte]

EXTRAIDO DE TRUCOMANÍA: PARA XP Y 200
, ME PARESE Q TMB ES COMPATIBLE CON 98 Y ETC
_______________________________________________
Añade registry en el uses de tu form



procedure TForm1.Button1Click(Sender: TObject);

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;

begin
//Desabilitamos el Ctrl-Alt-Del
//Disable Ctrl-Alt-Del
DisableTaskMgr (True);
end;