Salut les gars,
J'ai trouvé sur le net la méthode suivante qui permet de cacher une application du gestonnaire de tâches :
Procedure ctrl_alt_suppr;
var handle:integer;
proc:function(dwProcessId: DWORD; dwType: DWORD)
: DWORD; stdcall;
begin
Handle:= LoadLibrary('krn386.exe');
if Handle=0 then Handle:=LoadLibrary('kernel32.dll');
if Handle<>0 then
begin
@proc:=GetProcAddress(Handle, 'RegisterServiceProcess');
if @proc<>nil then
proc(0,1);
FreeLibrary(Handle);
end;
end;
Alors j'ai voulu l'adapter en l'associant à l'éxecution dun boutton Button1, et j'ai fait comme suit :
procedure TForm1.Button1Click(Sender: TObject);
var handle:integer;
proc:function(dwProcessId: DWORD; dwType: DWORD)
: DWORD; stdcall;
begin
Handle: =LoadLibrary('Form1');
if Handle=0 then Handle:=LoadLibrary('kernel32.dll');
if Handle<>0 then
begin
@proc:=GetProcAddress(Handle, 'RegisterServiceProcess');
if @proc<>nil then
proc(0,1);
FreeLibrary(Handle);
end;
end;
et ça a pas marché ... Si qqn a une réponse à mon prob svp. Je
voudrais ossi savoir si handle signifie le caption de la fenêtre active
ou pas ?
Merci à tous.
-----------------------------------------
May Delphi and Php change the world ....