Question sur Fonction.

Signaler
Messages postés
116
Date d'inscription
dimanche 12 décembre 2004
Statut
Membre
Dernière intervention
25 septembre 2005
-
Messages postés
85
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
-
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 ....

2 réponses

Messages postés
163
Date d'inscription
dimanche 20 octobre 2002
Statut
Membre
Dernière intervention
31 juillet 2008

y'avait pas de restriction par rapport au systeme d'exploitation ?
exyacc
Messages postés
85
Date d'inscription
samedi 6 novembre 2004
Statut
Membre
Dernière intervention
17 décembre 2005
1
Le problème vient en fait de windows xp qui n'accepte pas cette fonction. Désolé, il faudra trouver autre chose....