[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;

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

[poli-smen]

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

Ставлю на кнопку ошибка:Memo1.Lines.Add(ProcInfo.szExeFile);

Какая ошибка? У меня этот код никакой ошибки не выдаёт.

[MrZerO]

Незнаю просто при запуске программы красным цветом выделяется

[poli-smen]

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

Незнаю просто при запуске программы красным цветом выделяется

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

[MrZerO]

Можеш в скайп добавить Ilyxa99991 если нет то щас я тебе напишу код ошибки

[poli-smen]

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

Можеш в скайп добавить Ilyxa99991 если нет то щас я тебе напишу код ошибки

Скайпом не пользуюсь.

[MrZerO]

а вк есть?

Ошибка Method identifier expected

Сообщение от poli-smen

Скайпом не пользуюсь.

Ошибка Method identifier expected

[poli-smen]

Вот >здесь< проект с точной копией твоего кода - никаких ошибок при компиляции я не вижу.