Tak jak w temacie czyli w jaki sposob pobrac nazwe programu znajac jego PID ?
0
0
Mam podobne pytanie ale jak pobrać nazwę programu znając jego lokalizację [???]
0
W JCL powinniście znaleźć odpowiedzi:
http://sourceforge.net/projects/jcl
0
smigo napisał(a)
Tak jak w temacie czyli w jaki sposob pobrac nazwe programu znajac jego PID ?
function NazwaProcesu(PID: DWORD): string;
var
Handle: THandle;
begin
Result := '';
Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
if Handle <> 0 then
try
SetLength(Result, MAX_PATH);
if GetModuleFileNameEx(Handle, 0, PChar(Result), MAX_PATH) > 0 then
SetLength(Result, StrLen(PChar(Result)))
else
Result := '';
finally
CloseHandle(Handle);
end;
end;
- PsAPI do uses