Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=26)
-   -   Ocultar Aplicación (https://www.clubdelphi.com/foros/showthread.php?t=3478)

P@kito 09-09-2003 00:48:47

Ocultar Aplicación
 
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 09-09-2003 15:43:43

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;


La franja horaria es GMT +2. Ahora son las 21:46:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi