Comment faire pour killer une application ?

Version imprimable

15/08/2004, 18h04
tintin22

Comment faire pour killer une application ?

Comment faire pour tuer un programme en cours d'execution (avec son nom d'exe) sous windows 2000 pro ? j'ai essayé les codes qui marchent pour 9x/Me, mais ça marche pas pour windows 2000 pro.
Merci

Tiens, essaye ça, j'ai win2k mais apparement ça marche sur tous les windows

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
28
29
30
31
32
33
34
35
36
 
uses Tlhelp32;
 
function KillTask(ExeFileName: string): Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle; 
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
 
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = 
      UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(
                        OpenProcess(PROCESS_TERMINATE, 
                                    BOOL(0),
                                    FProcessEntry32.th32ProcessID),
                                    0));
     ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end; 
  CloseHandle(FSnapshotHandle);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTask('wmplayer.exe');
end;

je sais pas si sa peut t'aider pareil mais j'ai un code qui ferme un proceccus a l'aide du nom de la fenetre....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Procedure KillProgOfWindow(LeHandle: THandle);
var ProcessId: DWORD;
    HandleProcess: THandle;
begin
        GetWindowThreadProcessId(LeHandle, @ProcessId);
        If ProcessId<>0 then
        begin
                HandleProcess:=OpenProcess(PROCESS_TERMINATE, False, ProcessId);
                TerminateProcess(HandleProcess, 0);
        end;
end;

pour l'appeler :

Code:

1
2
3
4
5
6
7
 
var
MonHandle : HWND;
begin
MonHandle := FindWindow(ClassName,Nom de la fenetre);
KillProgOfWindow(MonHandle);
end;

16/08/2004, 15h29
Thunder_nico

j'utilise un code similaire a lil_jam sous windows 2000 donc je confirme il marche tres bien
17/08/2004, 18h16
tintin22

Merci pour vos reponses
lil_jam63, c'est le code que j'avais qui ne marchait pas ! en fait, c'etait tout bête, d'un coté j'avais ExeFileName:='c:\program files\toto.exe' et de l'autre c'est uniquement 'toto.exe' puisqu'il y a un ExtractFileName !! voila c'est tout :oops: :D