Discussion :

[kikica]

Bonjour,
Je souhaite pouvoir par un click de bouton fermer proprement toutes applications ouvertes sur mon ordi. Est-il possible de le faire de façon simple?
Merci pour toute réponse.

[Lung]

J'utilise ca dans une de mes applications :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
var
   nSnapShot: Integer;
   FProcessEntry32: TProcessEntry32;
begin
   Result := 0;
 
   nSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 
   //.Si erreur.
   if nSnapShot = -1 then
      Exit;
 
   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
   if Process32First(nSnapShot, FProcessEntry32) then
   begin
      repeat                            
         //.Si application recherchée.
         if AnsiLowerCase(ExtractFileName(FProcessEntry32.szExeFile)) = 'App_test' then
         begin
            //.Suppression du processus. 
            if not TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0) then
               Inc(Result);
         end;
      until not Process32Next(nSnapShot, FProcessEntry32);
   end;
 
   CloseHandle(nSnapShot);
end;

Ca peut peut-être t'aider ...

[kikica]

Merci Lung pour ta réponse, mais si tu peux faire quelques commentaire...
Par ex. j'ai une application qui tourne, je veux fermer propremment cette application, tout en enregistrant les fichiers ouverts pour ne pas perdre des données...

[Lung]

Par ex. j'ai une application qui tourne, je veux fermer propremment cette application, tout en enregistrant les fichiers ouverts pour ne pas perdre des données...

Là ca se complique ...
Mon bout de code ferme (sans poser de question, les applications).
Pour ce que tu cherches, je ne sais pas ...

[kikica]

Merci. Ce code ferme TOUTES applications ouvertes? Faut-il préciser le NOM des applications? Que mettre dans "USES"?

[Lung]

Merci. Ce code ferme TOUTES applications ouvertes? Faut-il préciser le NOM des applications?

Pour tester, remplace la partie qui supprime par de l'affichage des exe trouvé. Tu pourra voir la liste. Par exemple, avec un TRichEdit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
   if Process32First(nSnapShot, FProcessEntry32) then 
   begin 
      repeat                            
         RichEdit.Lines.Add(ExtractFileName(FProcessEntry32.szExeFile));
      until not Process32Next(nSnapShot, FProcessEntry32); 
   end;

Que mettre dans "USES"?

Tlhelp32

[kikica]

Est-tu sûr que ce côde fonctionne? Je n'arrive pas à compiler ce côde.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Identificateur non déclaré:TProcessEntry32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Identificateur non déclaré:result

etc...
ps. Peux-tu faire un copier-collé du côde qui fonctionne?
Merci d'avance.

[Lung]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Tlhelp32, StdCtrls, ComCtrls;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.Button1Click(Sender: TObject);
var
   nSnapShot: Integer;
   FProcessEntry32: TProcessEntry32;
begin
   nSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
 
   //.Si erreur.
   if nSnapShot = -1 then
      Exit;
 
   FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
   if Process32First(nSnapShot, FProcessEntry32) then
   begin
      repeat
         RichEdit.Lines.Add(ExtractFileName(FProcessEntry32.szExeFile));
      until not Process32Next(nSnapShot, FProcessEntry32);
   end;
 
   CloseHandle(nSnapShot);
end;

[Laurent Dardenne]

Par ex. j'ai une application qui tourne, je veux fermer propremment cette application, tout en enregistrant les fichiers ouverts pour ne pas perdre des données...

C'est l'application cible qui doit gérer cette situation.

[kikica]

Yess! L'affichage dans "richedit" fonctionne parfaitement. Maintenant, lorsque je fais un copier-coller du côde:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
   if Process32First(nSnapShot, FProcessEntry32) then 
   begin 
      repeat                            
         //.Si application recherchée. 
         if AnsiLowerCase(ExtractFileName(FProcessEntry32.szExeFile)) = 'App_test' then 
         begin 
            //.Suppression du processus. 
            if not TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0) then 
               Inc(Result); 
         end;

J'ai à nouveau l'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Identificatoeur non déclaré:"Result"

Donc, j'ai rajouté dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

var result: integer;

et ça compile, mais avec un avertissement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

La valeur affecté à 'result' n'est jamais utilisé

Et alors, rien ne se passe!

[Laurent Dardenne]

Le code donné par Lung est une fonction pas une procédure donc pas besoin de déclarer Result en variable locale.
A moins que dans ton cas tu ne souhaites pas connaitre le nb de process terminés par ce traitement.

[kikica]

En effet, je veux simplement par un click du buton fermer toutes applications ouvertes. Si je mets ce code dans un bouton, j'ai une procédure. Donc, je suis bien obligé d'y rajouter "result" dans var. Le problème c'est que j'obtiens toujours l'erreur suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

La valeur affecté à 'result' n'est jamais utilisé

et rien ne se passe!

[Graffito]

Bonjour,

Si result (nombre d'appli fermées) ne sert à rien, écrire simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0) ;

[kikica]

Merci, ça marche maintenant!