引言: 當A使用Winexec()執行B後，B要如何得知A的exitcode? 可以使用「檔名」去搜尋A的exitcode否? 因為我想由B用下列的程式碼去關閉A exitProcess(exitcode);

 
procedure ShellApplication(AppName, Caption : String; Param : array of String);
var execinfo : TShellExecuteInfo;
    ApplicationName, ParamString : String;
    i : integer;
begin
  for i := Low(PARAM) to High(Param) do
    ParamString := ' '   ParamString   ' '   Param[i];
  ApplicationName := ExtractFilePath(Application.ExeName)  AppName '.exe';
  FillChar(execinfo,SizeOf(execinfo),0);
  execinfo.cbSize:=sizeof(execinfo);
  execinfo.lpVerb:='Open';
  execinfo.lpFile:=Pchar(ApplicationName);   //所要執行的外部      execinfo.lpParameters:=Pchar(ParamString);       //參數
  execinfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
  execinfo.nShow:=SW_HIDE;      if (not ShellExecuteEx(@execinfo)) then
    ShowError(GetMsg(CanFindExe) '"'  Caption  
       '('   AppName   '.exe'   ')'   '"' GetMsg(ContactSysAdm), 'Error', False);      Application.Minimize;
  WaitForSingleObject(execinfo.hProcess,INFINITE); //會一止等待直到執
                       // 行的外部程式結束，才會把控制權交給你的應用程式。
  Application.Restore;
end;