各位好！ 我現在由A程式去呼叫執行B程式，B程式被關閉了，我要如何從A程式得知B程式已關閉，再由A程式去啟動呢？ 謝謝各位！

小弟建議.. 可以用[shellexecute]在站內搜尋一些.. 有很多文章可以參考..  

Hi Pig 你好: 使用訊息傳遞 在程式B主Form的OnClose事件送出訊息, 例如

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var Form1 : Hwnd;
begin
   Form1 := FindWindow(nil, 'Form1');
   if Form1 <> 0 then begin
      SendMessage(Form1, $8001, 0, 0);
   end;
end;

程式A接收訊息, 並執行程式B

unit Unit2;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;    const
  WM_BASE                   = $8000;
  WM_Form1Close             = WM_BASE   1;    type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Form2Close(var Message: TMessage); Message WM_Form1Close;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    { TForm1 }    { TForm1 }    procedure TForm1.Form2Close(var Message: TMessage);
begin
   WinExec('Project1', SW_Show);
end;    end.

寫的比較簡陋, 你可以加上一些判斷 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

利用CreateProcess 跟 WaitForSingleObject 找找看站內文章 利用CreateProcess 執行程式B 並取得 B 的 Handle 在A程式內呼叫 WaitForSingleObject(BHandle) 會 讓A程式等待B程式結束 結束後A程式可以再次利用CreateProcess 執行程式B ＠瞭解越多.懂得越少＠