获取打开文件的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;