Pobieranie nazwy aplikacji wg PID

0

Tak jak w temacie czyli w jaki sposob pobrac nazwe programu znajac jego PID ?

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0