Список процессов + пути к ним

[Lauri]

Собственно

procedure TForm1.Button1Click(Sender: TObject);
var p:PROCESSENTRY32;ct:cardinal;th:Cardinal; mp:array[0..255] of char;
 mm:pchar;ts:TSearchRec; sst:STARTUPINFO;  ss,s:string;

begin
ListBox2.clear;
   ListBox3.Clear;
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
 Process32First(ct,p);
 while Process32Next(ct,p) do begin
  begin
  if ExtractFileName(Application.ExeName)=string(p.szExeFile) then
   form1.Tag:=form1.Tag+1;
    OpenProcessToken(p.th32ProcessID,TOKEN_READ,th);
   ListBox2.Items.Append(string(p.szExeFile));
   ListBox3.Items.Append(inttostr(p.th32ProcessID));

    end;
     end;

Так получаем список процессов и занимаемую память. А можно ли как нибудь узнать ещё и путь каждого процеса т.е откуда запускаеться

[Kotofff]

Посмотри проект. Сыроват правда. Там все понятно.

ADD:
Да, прости не пояснил - у меня Delphi 2010

[Lauri]

Kotofff спасибо! 7 делф не открыл форму почему то.... а в 2009 норм ща буду разбирать!

[_-Re@l-_]

Собственно
Код:

procedure TForm1.Button1Click(Sender: TObject);
var p:PROCESSENTRY32;ct:cardinal;th:Car dinal; mp:array[0..255] of char;
mmchar;ts:TSearchRec; sst:STARTUPINFO; ss,s:string;

begin
ListBox2.clear;
ListBox3.Clear;
ct:=CreateToolhelp32Snapshot(TH32CS _SNAPALL,0);
Process32First(ct,p);
while Process32Next(ct,p) do begin
begin
if ExtractFileName(Application.ExeName )=string(p.szExeFile) then
form1.Tag:=form1.Tag+1;
OpenProcessToken(p.th32ProcessID,TO KEN_READ,th);
ListBox2.Items.Append(string(p.szEx eFile));
ListBox3.Items.Append(inttostr(p.th 32ProcessID));

end;
end;

А что ещё должно быть добавлено в Uses?
Я попробовал просто запустить, так пишет про PROCESSENTRY32 undeclared identifier

[_-Re@l-_]

Всё, я нашёл. А как их можно программно уничтожать(процессы)?

[SERG1980]

Из DelphiWorld.....

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;

[Stilet]

SERG1980

Это не даст полный путь к процессу.
Я лично вот такое пользую.
http://www.programmersforum.ru/showthread.php?t=62723

[Kotofff]

Виталь, в моем примере именно такая функция применяется.
Просто она там вспомогательная.

[SERG1980]

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

Это не даст полный путь к процессу.
Я лично вот такое пользую.
http://www.programmersforum.ru/showthread.php?t=62723

Stilet это ответ для поста №5

Всё, я нашёл. А как их можно программно уничтожать(процессы)?