Мне нужно для определенных запущенных процессов найти файлы, с которыми процесс запущен.
Сами процессы ищутся так:
- Код: Выделить всё
uses ...Windows, jwatlhelp32...
procedure GetProcessParam;
var
Snapshot: THandle;
pe: TProcessEntry32;
begin
Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
try
pe.dwSize := SizeOf(pe);
if Process32First(Snapshot, pe) then
while Process32Next(Snapshot, pe) do
if pe.szExeFile = 'MyProg.exe' then
// здесь надо получить строку типа : "C:\Program Files\MyProg\MyProg.exe" "D:\Work\Spisok1.txt"
finally
CloseHandle(Snapshot);
end;
end;