通过进程ID获取进程名

uses TLhelp32

function GetProcessNameById(const AID: Integer): String;

var     

h:thandle;     

f:boolean;     

lppe:tprocessentry32;

begin     

Result := '';     

h := CreateToolhelp32Snapshot(TH32cs_SnapProcess, 0);     

lppe.dwSize := sizeof(lppe);     

f := Process32First(h, lppe);     

while integer(f) <> 0 do     

begin       

if Integer(lppe.th32ProcessID) = AID then       

begin         

Result:= StrPas(lppe.szExeFile);         

break;       

end;       

f := Process32Next(h, lppe);     

end;

end