Witam,
Ma ktos funkcje , ktora pokazywala by mi sciezke aktualnie wlaczonego processu?
Przeszukalem caly internet, ale nic nie moglem znaleŹĆ.
Pozdrawiam.
0
2
uses Psapi;
procedure TForm1.Button1Click(Sender: TObject);
var
procID, procHandle: Cardinal;
szBuff: string;
iLength: Integer;
begin
procID:= GetCurrentProcessID; //tu podstaw ID procesu
procHandle:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, procID);
//cyba że juz masz uchwyt to podstaw do zmiennej procHandle
if (procHandle > 0) then
begin
SetLength(szBuff, MAX_PATH);
iLength:= GetModuleFileNameEx(procHandle, 0, PAnsiChar(szBuff), MAX_PATH);
CloseHandle(procHandle);
if iLength > 0 then
begin
SetLength(szBuff, iLength);
ShowMessage(szBuff);
end
else
ShowMessage('blad!');
end;
end;
0
Dzięki!