begin
  ShellExecute(0, PChar('open'), PChar('C:\xxx.exe'), 
    nil, SW_SHOWMINNOACTIVE);
end;

引言: 用這種方式可以嗎？

begin
  ShellExecute(0, PChar('open'), PChar('C:\xxx.exe'), 
    nil, SW_SHOWMINNOACTIVE);
end;

引言: 這樣會又重複把程式又執行一次,並不是返回原來呼叫的那個程式, 我是希望被呼叫端程式可以返回原來呼叫它的程式,而不是又再執行一次呼叫端程式

var hWnd: Integer;
begin
  // hWnd 為要返回的那個程式的視窗 Handle
  hWnd := FindWindow('TApplication', PChar('Project1.Exe'));
  if hWnd <> 0 then begin
    if IsIconic(hWnd) then
      ShowWindow(hWnd, SW_RESTORE)
    else
      SetForegroundWindow(hWnd);
  end;
end;

引言: Dear Hagar: 我誤會你的意思了,可是好像還是跟我想要的有點不一樣, A.exe 呼叫 B.exe後,B.exe會按下返回,就必須回到原來a.exe focus的元件上, 不知可否做到???

引言: [quote] 1. 妳必須把呼叫端的 Form.Handle 傳給被呼叫端 2. 被呼叫端按返回健時 下 ShowWindow(Form.Handle,SW_SHOW); 3. 被呼叫端在 FormCreate 時用 ParamCount 檢查是否有參數傳入，請查 Help 謝謝 4. 記得將參數作型態轉換