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
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 : 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
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....
pour l'appeler :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 var MonHandle : HWND; begin MonHandle := FindWindow(ClassName,Nom de la fenetre); KillProgOfWindow(MonHandle); end;
j'utilise un code similaire a lil_jam sous windows 2000 donc je confirme il marche tres bien
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![]()
![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager