[EEjester]

Есть такая функция завершения процесса:

Код:

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 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;

Нужно дописать её что бы в процедуре присутствовало ожидание закрытия процесса. Помогите пожалуйста.

p.s: пытался через "WaitFor..." но ничего не вышло

[Alegun]

Сообщение от EEjester

p.s: пытался через "WaitFor..." но ничего не вышло

Наверное "...но ничего не вышло" следует понимать как то что при вызове WaitForSingleObject сборка становится мёртвовисячей? Попробуйте её ещё разок вот так задействовать

Код:

1 2	while WaitforSingleObject(FSnapshotHandle, 200) = WAIT_TIMEOUT do  Application.ProcessMessages;

[EEjester]

У меня консольное приложение.

[EEjester]

Ожидание завершения проверяю так:

Код:

1 2	KillTask('notepad++.exe'); ShowMessage(IntToStr(GetProcID('notepad++.exe')));

Суть такова: если не будет процесса то ShowMessage выдаст PID 0.

[EEjester]

Вот так доделал функцию:

Код:

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

function KillTask(ExeFileName : string; PIDproc : Integer): Integer; const   PROCESS_TERMINATE = $0001; var   ContinueLoop: BOOL;   FSnapshotHandle: THandle;   FProcessEntry32: TProcessEntry32;   prc : THandle; 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;   prc := OpenProcess(PROCESS_ALL_ACCESS, false, PIDproc);   WaitforSingleObject(prc, INFINITE);   CloseHandle(FSnapshotHandle); end;

Использовать так:

Код:

1	KillTask('notepad++.exe', GetProcID('notepad++.exe'));

Может кто подскажет как можно оптимизировать?