список процессов windows 7

[unbanned]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TLHelp32, PsAPI, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    lst1: TListBox;
    lst2: TListBox;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ProcessHandle: THandle;
  ProcessExePath: array[0..127] of Char;
  pmc: PPROCESS_MEMORY_COUNTERS;
  cb: Integer;

implementation

{$R *.dfm}

procedure GetProcs(listbox1, listbox2: TListBox);
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;

begin
  listbox1.Clear;
  listbox2.Clear;
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap = INVALID_HANDLE_VALUE then
    exit;
  pe32.dwSize := SizeOf(ProcessEntry32);
  if Process32First(hProcSnap, pe32) = true then
    while Process32Next(hProcSnap, pe32) = true do
    begin
      ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        False, pe32.th32ProcessID);
      GetModuleFileNameEx(ProcessHandle, 0, ProcessExePath, 127);
      cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
      GetMem(pmc, cb);
      pmc^.cb := cb;
      GetProcessMemoryInfo(ProcessHandle, pmc, cb);
      if pmc^.PeakPagefileUsage <> 0 then
      begin
        listbox1.Items.add(pe32.szExeFile);
        listbox2.Items.Add(ExpandFileName(ProcessExePath));
      end;
    end;
  CloseHandle(hProcSnap);
  CloseHandle(ProcessHandle);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  GetProcs(lst1,lst2);
end;

end.

вот что у меня получилось...ну или не получилось)

мне нужен только список процессов и пути к exeшникам
процедуру взял из менеджера процессов с delphisources.ru, немного переделал...

вообщем, что я сделал не так?

[GunSmoker]

Перед GetProcs не вставил два пробела (какой вопрос, такой и ответ).

[unbanned]

вставил два пробела, ничего не изменилось))

проблема в том что пути показывает практически все не верные, список процессов далеко не полный, и ладно бы всегда был результат одинаковый... сколько раз на кнопку нажмешь столько результатов и получишь) то пути поменяются, то количество процессов... вообщем никакой стабильности

[GunSmoker]

Вот как бы это в вопросе изначально надо было указывать - в чём проблема.

Система 64-битная?

Посмотрите лучше в сторону PSApi, чем с ToolHelp мучаться. ToolHelp - это старый API из Win 9x.

[unbanned]

так точно... система x64

[mihali4]

То unbanned
Поиск по форуму для "лохов" сделан ?
http://programmersforum.ru/showthread.php?t=104243

[unbanned]

вам виднее. вопрос был "почему мой код не работает", а не "как сделать"