Mam procedurę wyświetlającą uruchomione procesy:
function ListaPlikow:TStringList;
var
Uchwyt:tHandle;
Proces:tProcessEntry32;
begin
try
Uchwyt:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
Proces.dwSize:=SizeOf(Proces);
Result:=TStringList.Create;
if Integer(Process32First(Uchwyt,Proces))<>0 then
repeat
Result.Append(Proces.szExeFile);
until Integer(Process32Next(Uchwyt,Proces))=0;
closehandle(Uchwyt);
except
end;
end;
Da się ją jakoś przerobić, żeby pokazywała ścieżkę procesu??