uses Shellapi;    function FileExecuteWait(const FileName, Params, StartDir: string;
                         Const Visibility:integer=SW_Normal): Integer;
var
  Info: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  FillChar(Info, SizeOf(Info), 0);
  Info.cbSize := SizeOf(TShellExecuteInfo);
  with Info do begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(FileName);
    lpParameters := PChar(Params);
    lpDirectory := PChar(StartDir);
    nShow :=Visibility;
  end;
  if ShellExecuteEx(@Info) then begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(Info.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    Result := ExitCode;
  end
  else Result := -1;
end;

引言: 大大: 我試了一下，可以Run 不過這邊有個小小問題想再請教 因為呼叫這個程式出來使用 那我要顯示訊息Form告訴使用者，正在執行此項程式，請他稍後片刻。 等到關閉視窗後，這個訊息Form也會不見。 這樣的話，我應該怎摸作? 不好意思，Delphi的新手。很多都不太了解。 拜託大大撥空解答 謝謝 再次謝謝

var
  WaitForm :TForm;    Procedure WaitMsg(MSG:String);
var
  Prompt: TPanel;
begin
  if Not Assigned(WaitForm) then
  begin
    WaitForm := TForm.Create(Application);
    with WaitForm do
    begin
      Canvas.Font := Font;
      BorderStyle := bsNone;
      FormStyle   := fsStayOnTop;
      Position := poScreenCenter;
      Prompt := TPanel.Create(WaitForm);
      with Prompt do
      begin
        Parent := WaitForm;
        BevelInner := bvLowered;
        Align  := alClient;
        Caption := MSG;
      end;
      Width := Canvas.Textwidth(MSG) 60;
      Height := Canvas.TextHeight('F') 20;
      Show;
      Repaint;
    end;
  end;
end;    Procedure WaitMsgClose;
var
  Prompt: TPanel;
begin
  if Assigned(WaitForm) then
  begin
    WaitForm.Close;
    FreeandNil(WaitForm);
  end;
end;
在 FileExecuteWait 前顯示 WaitMSG 
之後 WaitMSGClose 關閉訊息。

引言: 大大，很抱歉，我今天測試的時候發現，還是會有關不掉的狀況產生， 也就是使用TreeComp元件執行後，跳不開 if ShellExecuteEx(@Info) then begin repeat Application.ProcessMessages; GetExitCodeProcess(Info.hProcess, ExitCode); until (ExitCode <> STILL_ACTIVE) or Application.Terminated; Result := ExitCode; end else Result := -1; 這段code所以TreeComp視窗還會存在 可以請大大幫忙看一下嗎?

WaitMsg('處理中);
Try
  FileExecuteWait(....
finally
  WaintMsgClose;
end;
另外
var
  WaitForm :TForm;    最好是定義全域

  if ShellExecuteEx(@Info) then begin
    repeat
      WaitforSingleObject(Info.hProcess,INFINITE);
      GetExitCodeProcess(Info.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
    Result := ExitCode;
  end
 

 1. WaitforSingleObject(Info.hProcess,INFINITE); 
 
 2. repeat
      Sleep(1000);//曾經遇過被等待的程式若無此行會hang住, 因此拉長檢查間隔, 一般是可以不用
      GetExitCodeProcess(Info.hProcess, ExitCode);
    until (ExitCode <> STILL_ACTIVE) or Application.Terminated;