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;  
 

相关阅读 >>

Delphi unidac 连接mdb access 数据库

Delphi firemonkey限制tedit只能输入数字的完美方法

Delphi在字符串中删除指定字符串

Delphi中指针和地址切换的方法

Delphi parent属性的另类用法

Delphi中实现磁盘信息类(tdriveinfo)

Delphi编解码js字符串

Delphi thttpclient 时获取跳转后的 url

Delphi is 与 as 运算符举例

Delphi 控制台 输入输出实例代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取打开文件的PID