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 点击关闭叉时,最小化图标

Delphi 获取windows任务栏的高度

Delphi cxgrid:动态设计统计功能

winapi 字符及字符串函数(15): charnext、charprev

Delphi调试服务程序的两种方法

Delphi 移动windows开始按钮到任务栏中的任何位置

Delphi中输入法模式imemode属性的解释

Delphi 中使长循环有响应

Delphi 读取剪粘板内的html格式数据

如何用Delphi实现windows xp中“本地连接”的启用和禁用

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

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