private
  //子系統的FLAG
  iHDTag: Integer;
  //子系統使用位置存放
  HDArray: array[1..1000] of Integer;
  //目前使用之PROCESS
  fLastProcess: THandle;    //sExeName  執行檔名稱, sParams 是參數如果你有的話啦...不然就空著吧,如果有一個以上要用  ,  號隔開
procedure TForm1.OpenSubSys(sExeName, sParams: String);
var
  ExecInfo: SHELLEXECUTEINFO;
  APath: array [0..MAX_PATH] of Char;
  //sFileName: String;
begin
  iHDTag:= iHDTag 1;
  FillMemory(@ExecInfo,SizeOf(SHELLEXECUTEINFO),0);
  ExecInfo.cbSize:= SizeOf(SHELLEXECUTEINFO);
  ExecInfo.fMask:= SEE_MASK_NOCLOSEPROCESS;      ExecInfo.Wnd:= 0;
  ExecInfo.lpFile:= PChar(Trim(sExeName));
  ExecInfo.lpParameters:= PChar(Trim(sParams));      ExecInfo.nShow := SW_SHOWNORMAL;
  ShellExecuteEx(@ExecInfo);
  fLastProcess:= ExecInfo.hProcess;      HDArray[iHDTag]:= fLastProcess;
  GetModuleFileNameEx(FLastProcess, 0, @APath[0], SizeOf(APath));      //WaitForSingleObject(fLastProcess, 10000);
  //sFilename:= StrPas(APath);
end;    procedure TForm1.CloseSubSys;
var
  ExitCode:DWORD;
  i: Integer;
begin
  for i:= 1 to iHDTag do
  begin
    if HDArray[i] <> 0 then
    begin
      GetExitCodeProcess(HDArray[i], ExitCode);
      if ExitCode=STILL_ACTIVE then
      begin
        TerminateProcess(HDArray[i],0);
        FLastProcess:= 0;
      end;
    end;
  end;
end;    

引言: 請問 我用WinExec 在A去開啟了B 我想在關掉A的同時，也關掉B 謝謝

.....
implementation
uses ...    function CloseB(Wnd: HWnd): Boolean; stdcall;
         var sCap: array [0..255] of char;
begin
     GetWindowText(Wnd, sCap, sizeof(sCap));
     //mncap為視窗標題名稱, 即B程式的Application.Title
     // 你可以指定mncap變數代入, 或者直接以B的Application.Title取代
     // 如 'MYTITLE'
     if pos(mncap,sCap) > 0 then   
     begin
        PostMessage(Wnd, WM_CLOSE, 0, 0);
     end;
     CloseB:= True;
end;    呼叫時
EnumWindows(@CloseB,0);