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