本文整理自网络,侵删。
{delphi 获得指定进程的ID号。}
function GetProcessIDFromExename(ExeName: string): Cardinal;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOLEAN;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if (LowerCase(ExtractFileName(FProcessEntry32.szExeFile)) =
LowerCase(ExeName)) then
Result := FProcessEntry32.th32ProcessID;
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
相关阅读 >>
Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别
Delphi 把修改好的cookies重新赋值给webbrowser1 doc
Delphi Delphi tparallel cleanup needed用法
Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响
winapi 字符及字符串函数(13): lstrcmp、lstrcmpi - 对比串
更多相关阅读请进入《Delphi》频道 >>