[Ghost]

У меня есть список процессов, созданный кодом:

var
  hSnap: integer;
  proc:  PROCESSENTRY32;
...
begin
...
  hSnap := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if Process32First(hSnap, proc) then repeat with proc do
      writeln (Format('%6d | %20s', [th32ProcessID, szExeFile]));
  until not Process32Next(hSnap, proc);
...
end;

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

PID: 12345
NAME: notepad.exe
CMD: edit.bat bla-bla-bla.txt
PATH: D:\TEXTS\

Структуры PROCESSENTRY32 подобной информации не содержат. Но это как-то можно выковырять (я видел такие проги), только - как? Никто не подскажет?