Du Code pour fermer Internet Explorer lorsqu'il s'exécute

Question

Je cherche un code qui permet de fermer internet explorer car j'ai eu une autre fonction qui ferme toutes les fenêtres des applications en exécution sauf internet explorer. c'est pour celà je voudrai savoir si un code qui permet de le fermer au cas où il est actif sinon pourquoi lui seul ne se ferme pas.

Francky23012301 · Answer

On appelle cela killer un proces.

Il te faut récupérer le handle d'explorer

yano2005 · Answer

Merci Francky. je veux essayer encore sinon j'ai déjà utiliser les méthodes de récupération du handle. et je peux tuyer tous les process sauf Iexplorer.exe

bv94 · Answer

certainement patrceque Iexplorer &#224; pour propri&#233;taire SYSTEM.
Il faut au pr&#233;alable que tu changes les propri&#233;t&#233;s de ton process...

BV94

yano2005 · Answer

Merci vb. je veux essayer, aprés je te rendrai compte.

yano2005 · Answer

salut vb, j'ai essayer et le propriètaire n'est pas SYSTEM. mais 1 des users de Win XP

Francky23012301 · Answer

On peut killer iexplorer : je l'ai d&#233;j&#224; fais et cela marche aussi bien que pour les autres applications. 



Soit tu as un prob&#232;me de config comme te l'as dit VB soit tu as mal cod&#233;.



Passe ton code stp

yano2005 · Answer

salut Francky,
Tu m'escuses pour avoir prendre du temps à te repondre. c'est la fête. j'ai pas eu le temps de surfer. d'ailleurs je profite pour dire Joyeux Nouvel An à tous les membres de ce site.
voilà le code:
var
   ProcListExec : TProcessentry32;
   PrhListExec : Thandle;
   Continu : Boolean;
   isStarted : Boolean;
   HandleProcessCourant : Cardinal;
   PathProcessCourant : string;
   ProcessCourant :String;
begin
   // Liste des applications en cours d'exécution
   // Initialisation des variables et récuperation de la liste des process
   ProcListExec.dwSize:=sizeof(ProcListExec);
   Continu := True;
   isStarted := False;

 Try
    // Récupére la liste des process en cours d'éxécution au moment de l'appel
   PrhListExec:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
   if (PrhListExec <> INVALID_HANDLE_VALUE)
    then
    begin
     //On se place sur le premier process
     Process32First(PrhListExec,ProcListExec);

       // Tant que le process recherché n'est pas trouvé et qu'il reste
       // des process dans la liste, on parcourt et analyse la liste
     while Continu do
     begin
       ProcessCourant := Uppercase(ExtractFileName(ProcListExec.szExeFile));
       ProcessCourant := ChangeFileExt(ProcessCourant,'');
         HandleProcessCourant := ProcListExec.th32ProcessID;
         PathProcessCourant := ExtractFilepath(ProcListExec.szExeFile);
    // Recherche le process suivant dans la liste
         Continu := Process32Next(PrhListExec,ProcListExec);
    // Termine le process en indiquant le code de sortie zéro
    TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,HandleProcessCourant),0);
         Sleep(500);
         // Laisse le temps au process en cours de suppression de s'arrêter
      end;
   end;
 Finally
   CloseHandle(PrhListExec); // Libére les ressources
 end;

end;

Du Code pour fermer Internet Explorer lorsqu'il s'exécute

7 réponses

Votre réponse

Discussions similaires