Discussion :

[butch]

Bonjour.
J'aurais besoin d'arrêter les instances d'un programme qui a été lancé depuis un emplacement.

Le but est de fermer toutes ces instances avant de lancer un programme de mise à jour fait avec inno setup et qui plante si un des programmes à remplacer est en cours d'éxecution.

Merci d'avance de votre aide. La difficulté semble être de retrouver les handle de fenêtre.

[Nopain]

Salut Butch,

Enumerer les applications en cours et utiliser FindWindow() pour retrouver les handle qui t'interessent. Il faudra rechercher une certaine occurence dans la barre des titres des fenetres pour identifier *la* bonne application.

J'espere que ca suffira.

[defluc]

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
function KillProcess(const ProcessName : string) : boolean;
var ProcessEntry32 : TProcessEntry32;
    HSnapShot : THandle;
    HProcess : THandle;
begin
  Result := False;
 
  HSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if HSnapShot = 0 then exit;
 
  ProcessEntry32.dwSize := sizeof(ProcessEntry32);
  if Process32First(HSnapShot, ProcessEntry32) then
  repeat
    if CompareText(ProcessEntry32.szExeFile, ProcessName) = 0 then
    begin
      HProcess := OpenProcess(PROCESS_TERMINATE, False, ProcessEntry32.th32ProcessID);
      if HProcess <> 0 then
      begin
        Result := TerminateProcess(HProcess, 0);
        CloseHandle(HProcess);
      end;
      Break;
    end;
  until not Process32Next(HSnapShot, ProcessEntry32);
 
  CloseHandle(HSnapshot);
end;

Utilisation

Code :

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

   KillProcess('MonExe.exe');