FindProcess 查找进程

uses TLHelp32,psapi;

function FindProcess(AFileName: string;var ID:Cardinal): boolean;var   hSnapshot: THandle;//用于获得进程列表   lppe: TProcessEntry32;//用于查找进程   Found: Boolean;//用于判断进程遍历是否完成begin   Result :=False;   hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);//获得

系统进程列表   lppe.dwSize := SizeOf(TProcessEntry32);//在调用Process32First API之

前，需要初始化lppe记录的大小   Found := Process32First(hSnapshot, lppe);//将进程列表的第一个进程信

息读入ppe记录中   while Found do   begin     if ((UpperCase(ExtractFileName(lppe.szExeFile))=UpperCase

(AFileName)) or (UpperCase(lppe.szExeFile )=UpperCase(AFileName))) then     begin       ID:=lppe.th32ProcessID;

       Result :=True;     end;     Found := Process32Next(hSnapshot,lppe);//将进程列表的下一个进程信

息读入lppe记录中   end;

end;