[Unocide]

Просмотр запущенных процессов, и завершение по /PID. Аналог виндовозовских tasklist taskill. Что подскажете?

[GLFox]

STFW:
Win9x - "tool help functions"
WinNT - NtQuerySystemInformation

[codeLocker]

Пример ниже убивает процесс по заданому имени

Код:

procedure ProcessTerminate(sName: string);
var
  han : THandle;
  ProcStruct : PROCESSENTRY32;
  sID : string;
begin
  han := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  if han = 0 then exit;
  ProcStruct.dwSize := sizeof(PROCESSENTRY32);
  if Process32First(han, ProcStruct) then begin
    repeat
      sID := ExtractFileName(ProcStruct.szExeFile);
      if UpperCase(copy(sId, 1, length(sName))) = uppercase(sName) then begin
        ProcessTerminate(ProcStruct.th32ProcessID);
        Break;
      end;
    until not Process32Next(han, ProcStruct);
  end;
  CloseHandle( han );
end;

Admin: Пользуемся тегами!

[BITCH666]

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

Пример ниже убивает процесс по заданому имени

а где здесь задаётся имя процесса? я не могу найти.

[abyss_by]

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

а где здесь задаётся имя процесса? я не могу найти.

Вообще здесь в параметре процедуры, но этот пример не убьет процесс.
Вот код, который найдет PID по имени. А дальше можно и "убить" процесс.

Код:

function GetProcessPidByName(fName: String): THandle;
 var
  hSnapshot: THandle;

   function ProcessPidByName(hProcess: DWord; fName: String): THandle;
    var
     ProcEntry: TProcessEntry32;
     ProcessPid: THandle;
   begin
     ProcEntry.dwSize:= SizeOf(ProcEntry);
     ProcessPid:= 0;
     if Process32First(hProcess, ProcEntry) then
      begin
        repeat if ProcEntry.szExeFile = fName then
         begin
          ProcessPid:= ProcEntry.th32ProcessID;
          Result:= ProcessPid;
          Exit;
         end;
        until not Process32Next(hProcess, ProcEntry)
        end;
       Result:= ProcessPid;
   end;

begin
  hSnapshot:= CreateToolhelp32Snapshot($2, 0);
   if hSnapshot <> INVALID_HANDLE_VALUE then
    Result:= ProcessPidByName(hSnapshot, fName);
   CloseHandle (hSnapShot);
end;