delphi 获取打开文件的PID
var
SI : TStartupInfo;
PI : TProcessInformation;
pid:DWORD;
begin
ZeroMemory(@SI, SizeOf(SI));
//ZeroMemory宏用0来填充一块内存区域 SizeOf//Pascal的一种内存容量度量函数
ZeroMemory(@PI, SizeOf(PI));
SI.cb := SizeOf(SI);
if CreateProcess(nil,'d:/CALC.EXE', nil, nil, FALSE, 0 ,nil,nil, SI, PI) then
begin
Pid := pi.dwProcessId; //获取打开文件的PID
ShowMessage(IntToStr(pid));//显示PID值
CloseHandle(PI.hProcess);
CloseHandle(PI.hThread);
end;
end;
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.043881893157959 seconds