Как завершить процесс, зная его имя

[Никки]

Привет всем!

Ну в принципе теоретически понятно как, надо молучить HANDLE процезза и завершить его функцией CloseWindow();

Но как получить хэндл зная имя процесса?? Я получал его по имени окна, но потом не мог его закрыть приведённой выще функцией!! Напишите кто знает как!!

Зарание огромное спасибо!!

[mihali4]

Господи, когда же они начнут пользоваться поиском по форуму? Вразуми их, господи, иначе я возьму дубину и буду вразумлять сам...

SendMessage(FindWindow(nil,'Caption окна'),WM_Close,0,0);

[Никки]

Да, но у меня нет имя окна, у меня есть только имя процесса!

Темы тоже надо внимательно читать!

[AnalogXP]

Я когдато так убивал программы:

//==================================================================
function GetLastErrorString: string;
var
  lz: Cardinal;
  lErr: array[0..512] of Char;
begin
  lz := GetLastError;
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, lz, 0, lErr, 512, nil);
  Result := string(lErr);
end;
//==================================================================
function GetProcessID(const AProcessName: string): DWord;
var
  lSnapHandle: THandle;
  lProcStruct: PROCESSENTRY32;
  lProcessName, lSnapProcessName: string;
  lOSVerInfo: TOSVersionInfo;
begin
  Result := INVALID_HANDLE_VALUE;
  lSnapHandle := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if lSnapHandle = INVALID_HANDLE_VALUE then
    Exit;
  lProcStruct.dwSize := SizeOf(PROCESSENTRY32);
  lOSVerInfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  GetVersionEx(lOSVerInfo);
  case lOSVerInfo.dwPlatformId of
    VER_PLATFORM_WIN32_WINDOWS: lProcessName := AProcessName;
    VER_PLATFORM_WIN32_NT: lProcessName := ExtractFileName(AProcessName);
  end;
  if Process32First(lSnapHandle, lProcStruct) then
  begin
    try
      repeat
        lSnapProcessName := lProcStruct.szExeFile;
        if AnsiUpperCase(lSnapProcessName) = AnsiUpperCase(lProcessName) then
        begin
          Result := lProcStruct.th32ProcessID;
          Break;
        end;
      until not Process32Next(lSnapHandle, lProcStruct);
    finally
      CloseHandle(lSnapHandle);
    end;
  end;
end;
//==================================================================
function KillProcess(const AProcessName: string): Boolean;
var
  lPID, lCurrentProcPID: DWord;
  lProcHandle: DWord;
begin
  Result := False;
  try
    lCurrentProcPID := GetCurrentProcessId;
    lPID := GetProcessID(AProcessName);
    if (lPID <> INVALID_HANDLE_VALUE) and (lCurrentProcPID <> lPID) then
    begin
      lProcHandle := OpenProcess(PROCESS_TERMINATE, False, lPID);
      Windows.TerminateProcess(lProcHandle, 0);
      WaitForSingleObject(lProcHandle, Infinite);
      CloseHandle(lProcHandle);
      Result := True;
    end;
  except
    raise EExternalException.Create(GetLastErrorString);
  end;
end;

Вызывал:

KillProcess(путь к программе);

[mihali4]

Сообщение от Никки

Да, но у меня нет имя окна, у меня есть только имя процесса!

Темы тоже надо внимательно читать!

Это кто писал? Я?

как получить хэндл зная имя процесса?? Я получал его по имени окна

[Stilet]

Но как получить хэндл зная имя процесса??

Зная имя процесса проще всего найти его ID через ToolHelp32 и закрыть через TerminateProcess
типа такого:

var p:PROCESSENTRY32;ct:cardinal;th:Cardinal;
begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
 Process32First(ct,p);
 while Process32Next(ct,p) do begin
  if p.szExeFile='winamp.exe' then
  begin
    th:=OpenProcess(PROCESS_ALL_ACCESS,false,p.th32ProcessID);
   TerminateProcess(th,0);
  end;
 end;  {}
 end;

P.S. Код наскоро набросал, требуется формальная доработочка

[Air]

Для обычных ЕХЕ файлов действует безотказно:

uses Tlhelp32;
...
function KillTask(ExeFileName:string):integer;
const
PROCESS_TERMINATE=$0001;
var
Co:BOOL;
FS:THandle;
FP:TProcessEntry32;
begin
result:=0;
FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
FP.dwSize:=Sizeof(FP);
Co:=Process32First(FS,FP);
while integer(Co) <> 0 do
begin
if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
(UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FP.th32ProcessID),0));
Co:=Process32Next(FS,FP);
end;
CloseHandle(FS);
end;