本文整理自网络，侵删。
//单元文件 TLHelp32 获取explorer.exe进程ID 同样也可以获取任何进程ID
function GetExplorerPID(const AExeName: string): int64;
var
ProcessName : string; //进程名
ProcessID : integer; //进程表示符
i : integer;
ContinueLoop:BOOL;
FSnapshotHandle:THandle; //进程快照句柄
FProcessEntry32:TProcessEntry32; //进程入口的结构体信息
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程
//循环例举 www.delphitop.com
while ContinueLoop do
begin
ProcessName := FProcessEntry32.szExeFile;
ProcessID := FProcessEntry32.th32ProcessID;
//result :=result+inttostr(ProcessID)+ProcessName;
if pos(UpperCase(ProcessName),UpperCase(AExeName))>0 then
begin
result :=ProcessID;
break;
end
else
begin
result :=0;
end;
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
相关阅读 >>
Delphi 如何在toolbar中的toolbutton上显示文字
Delphi mysql里Delphi事件类型转unix时间戳
Delphi getmodulefilename函数的用法(可以获取项目的路径，桌面的路径，我的文档的路径)
Delphi edit1.gettextlen 获取编辑框字符数
更多相关阅读请进入《Delphi》频道 >>
