Закрыть чужое приложение

[Михаил Юрьевич]

Как закрыть чужое приложение зная путь к исполняющему файлу.
Закрывать по названию окна не подходит
PostMessage(FindWindow(nil, 'Заголовок окна'), WM_QUIT, 0, 0);

[uberchel]

Вот функция:

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;

[Михаил Юрьевич]

Спасибо,то что надо

[DomiNick]

На всякий случай: в uses должно быть "Windows", "SysUtils" и "Tlhelp32"...