[MrZerO]

Ставлю на кнопку ошибка:Memo1.Lines.Add(ProcInfo.szExeFile);
Библиотеку tlhelp32 подключил помогите плиз...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
begin
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot <> THandle(-1)) then
  begin
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then
    begin
      Memo1.Lines.Add(ProcInfo.szExeFile);
      while (Process32Next(hSnapShot, ProcInfo)) do
        Memo1.Lines.Add(ProcInfo.szExeFile);
    end;
    CloseHandle(hSnapShot);
  end;
end;

Админ: Пользуемся тегами для оформления кода!