[kudesnik]

подскажите почему функция при втором вызове не убивает процесс?
т.е. есть 1.exe и 2.exe. оба запущены. при вызове DebugKillProcess(GetProcessId('1.exe')); процесс закрывается. еще раз вызываем DebugKillProcess(GetProcessId('2.exe')); процесс не закрывается

Код:

function TForm1.DebugKillProcess(ProcessId: dword): boolean;
var
 pHandle: dword;
 myPID: dword;
 HandlesInfo: PSYSTEM_HANDLE_INFORMATION_EX;
 r: dword;
begin
 Result := false;
 myPID := GetCurrentProcessId();
 if not EnableDebugPrivilege() then Exit;
 if DbgUiConnectToDbg() <> STATUS_SUCCESS then Exit;
 pHandle := OpenProcessEx(ProcessId);
 if DbgUiDebugActiveProcess(pHandle) <> STATUS_SUCCESS then Exit;
 HandlesInfo := GetInfoTable(SystemHandleInformation);
 if HandlesInfo = nil then Exit;
 for r := 0 to HandlesInfo^.NumberOfHandles do
  if (HandlesInfo^.Information[r].ProcessId = myPID) and
     (HandlesInfo^.Information[r].ObjectTypeNumber = $8) 
     then begin
       CloseHandle(HandlesInfo^.Information[r].Handle);
       Result := true;
       break;
     end;
 VirtualFree(HandlesInfo, 0, MEM_RELEASE);
end;

[poli-smen]

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

подскажите почему функция при втором вызове не убивает процесс?
т.е. есть 1.exe и 2.exe. оба запущены. при вызове DebugKillProcess(GetProcessId('1.exe')); процесс закрывается. еще раз вызываем DebugKillProcess(GetProcessId('2.exe')); процесс не закрывается

Ну так ты обрабатывай ошибки вместо того чтобы при ошибках тихонько выходить по Exit.
Т.е. вместо, например, такого:

Код:

if DbgUiConnectToDbg() <> STATUS_SUCCESS then Exit;

Делай примерно так:

Код:

var
  err: DWORD;
.....
begin
.....
  err := DbgUiConnectToDbg();
  if err <> STATUS_SUCCESS then
    raise Exception.CreateFmt('Ошибка №%d: "%s"', [err, SysErrorMessage(err)]);

p.s. И чем не подходит завершение процесса через обычный TerminateProcess ?

[kudesnik]

дело в том что в программе нет ошибки...и она сама не завершается.

[poli-smen]

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

дело в том что в программе нет ошибки...и она сама не завершается.

О какой программе речь? О той которую нужно завершить или о той которая завершает чужой процесс?

[kudesnik]

моя программа завершает 1.exe
после 2.exe не завершается, но моя прога при этом не выходит и не зависает. причина в чем то другом

[poli-smen]

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

моя программа завершает 1.exe
после 2.exe не завершается, но моя прога при этом не выходит и не зависает. причина в чем то другом

А через TerminateProcess завершает?:

Код:

TerminateProcess(GetProcessId('2.exe'), 0);

[kudesnik]

Сообщение от poli-smen

А через TerminateProcess завершает?:

2.exe - пустое delphi приложение. так что TerminateProcess должен работать

[kudesnik]

прочитал вот что про эту функцию...

На 1 DebugObject можно повесить множество процессов при помощи DbgUiDebugActiveProcess и потом их всех прибить. Плохая: невозможно создать DebugObject после его завершения. Т.е. объект создать можно ZwCreateDebugObject, но вот подключить его нельзя ((

обойти это никак?

[poli-smen]

Когда процесс не получается завершить, то какие ошибки возвращает?

[kudesnik]

Сообщение от poli-smen

Когда процесс не получается завершить, то какие ошибки возвращает?

if DbgUiDebugActiveProcess(pHandle) <> STATUS_SUCCESS then Exit;

ошибка №-1073741788: ""