Arrêter des instances de programme

Version imprimable

01/04/2008, 17h01
butch

Arrêter des instances de programme

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.
03/04/2008, 10h56
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.

Code:

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:

KillProcess('MonExe.exe');