Delphi gets the function of the path of the program according to the process PID (using OpenProcess to get the handle, using Getmodulefilenameex to get the program name)

Uses PSAPI;

{A function that gets the path of the program according to the process PID}
function Getprocessexepath (pid:cardinal): string;
Var
Phandle:thandle;
Buf:array[0..max_path] of Char;
Begin
{Get process Handle}
Phandle: = OpenProcess (process_query_information or Process_vm_read, False, PID);
{Get Process path}
Getmodulefilenameex (phandle, 0, buf, Length (BUF));
CloseHandle (Phandle);
Result: = BUF;
End

http://blog.csdn.net/cmdasm/article/details/9961631

Delphi gets the function of the path of the program according to the process PID (using OpenProcess to get the handle, using Getmodulefilenameex to get the program name)