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程序在每个windows 会话中只执行一次

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi 获取unixtime

Delphi删除目录及子目录及所有目录下的文件

Delphi idhttpserver接收http get请求解码问题

Delphi 之 列表框组件(tlistbox)

Delphi 泛型容器单元(generics.collections) tdictionary<t>

Delphii控件的安装和卸载方法

Delphi2010中使用pchar时e2010 incompatible types: 'char' and 'ansichar' 错误的处理

Delphi 查询当前目录下文件名是否存在

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

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