Запуск taskkill через CreateProcess(не работает)

[batnik.com]

Привет всем!
Пишу функцию которая завершает процесс с помощью taskkill.exe и ждет до окончания завершения.
Вот ее код:

void KillProc(AnsiString proc_name) {
Form1->Timer1->Enabled=false;
STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory( &si, sizeof(si) );
si.cb = sizeof(si);
int res = CreateProcess(AnsiString(ExtractFilePath(getenv("COMSPEC")) + "\\taskkill.exe").c_str(), AnsiString("/f /im "+proc_name).c_str(),NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi);
if (res) {
 while (WAIT_TIMEOUT == WaitForSingleObject(pi.hProcess, 300)) {

}
 //Form1->Timer1->Enabled=true;
// GetExitCodeProcess(pi.hProcess, &res);
 CloseHandle(pi.hProcess);
  }
}

При запуске программы черное окно тасккилла вылетает но нужный процесс не завершается. Когда набираю в cmd "taskkill /f /im тот_же_самый_процесс" все работает.

В чем дело?

Заранее всем большое спасибо.

[JTG]

Дело в том, что это примерно как "сделать маленькую отвёртку при помощи большой отвёртки и напильника". Ждать завершения taskkill не имеет смысла, т.к. он может написать в консоль "отказано в доступе", и завершиться.

Вместо этого нужно пройтись по списку процессов при помощи Process32First/Process32Next и прибить нужные через OpenProcess/TerminateProcess, убедиться, что процесс завершился через тот же WaitForSingleObject. На делфи это выглядит примерно так:

program Terminate;

{$AppType CONSOLE}

uses
    Windows, Tlhelp32, SysUtils;

function GetProcessId(hProcess: THandle): DWORD; stdcall external 'kernel32.dll';

procedure KillByName(process_name: string);
var
    ContinueLoop: bool;
    FSnapshotHandle: THandle;
    FProcessEntry32: TProcessEntry32;
    ProcessHandle, ProcessID, result: dword;
begin
    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(process_name) then
        begin
            ProcessHandle := OpenProcess(PROCESS_TERMINATE + PROCESS_QUERY_INFORMATION + SYNCHRONIZE, bool(0), FProcessEntry32.th32ProcessID);
            ProcessID := GetProcessId(ProcessHandle);            
            TerminateProcess(ProcessHandle, 0);
            result := WaitForSingleObject(ProcessHandle, 5000);
            if result = WAIT_OBJECT_0 then
                writeln('Terminated process ', ProcessID)
            else if result = WAIT_TIMEOUT then
                writeln('Failed to terminate process ', ProcessID, ' in 5 seconds')
            else
                writeln('Failed to open/terminate process');
        end;
        ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
    CloseHandle(FSnapshotHandle);
end;

begin
    KillByName('chrome.exe');
end.

[Stertor]

Пишу функцию которая завершает процесс с помощью taskkill.exe

Ну ты прям феномен!