請問各位! 我有兩支Delphi程式, 其中A程式啟動後在經過一些判斷, 以 winexec()啟動 B程式, 然後要從B程式中關閉A程式, 由B程式接手執行, 請問如何才能做得到 我查了本站的討論(以"關閉"來找有101筆), 似乎找不到想要的答案, 不知各位 是否有這方面的資料可否提供? 謝謝!

讓B程式關閉A程式   

function CloseA(Wnd : HWnd; Form : TForm1) : Boolean;export; stdcall;
var
  sCap : array [0..255] of char;
begin
  GetWindowText (Wnd, sCap, sizeof(sCap));
  if pos ('A', sCap) > 0 then //A程式，視窗標題名稱
  begin
    PostMessage (Wnd, WM_CLOSE, 0, 0);
  end;
  CloseA := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@CloseA, 0);
end;     

網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2004/12/13 08:38:01

引言: 讓B程式關閉A程式

function CloseA(Wnd : HWnd; Form : TForm1) : Boolean;export; stdcall;
var
  sCap : array [0..255] of char;
begin
  GetWindowText (Wnd, sCap, sizeof(sCap));
  if pos ('A', sCap) > 0 then //A程式，視窗標題名稱
  begin
    PostMessage (Wnd, WM_CLOSE, 0, 0);
  end;
  CloseA := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@CloseA, 0);
end;     

網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2004/12/13 08:38:01

不好意思, 版主, 我沒想到你會從caption上下手, 所以我沒有提到A程式的CAPTION是中文而且是可以被使用者自定的, 所以我無法預測使用者會使用何 種CAPTION STRING, 那該如何是好? PS:A程式不是我寫的, 手上沒有SOURCE CODE可以改, 我是有想過如果將使用者 定義的CAPTION加上特有識別碼如XXXXXX公司***, 不過A程式的CAPTION 會被拿來做其他的功能, 所以不太可能去添增其他文字! 謝謝!

豬寶寶想到的方法是 去搜尋PROCESS 中看有沒有A那個程式的執行檔名 再去砍那個PROCESS 抱歉 只想到方法 手上沒有MSDN可以查詢那個函數可以做到 >_<

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=42980    網海無涯，唯學是岸！ 因為擁有，所以分享！

引言: 讓B程式關閉A程式

function CloseA(Wnd : HWnd; Form : TForm1) : Boolean;export; stdcall;
var
  sCap : array [0..255] of char;
begin
  GetWindowText (Wnd, sCap, sizeof(sCap));
  if pos ('A', sCap) > 0 then //A程式，視窗標題名稱
  begin
    PostMessage (Wnd, WM_CLOSE, 0, 0);
  end;
  CloseA := true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@CloseA, 0);
end;     

網海無涯，唯學是岸！ 因為擁有，所以分享！ 發表人 - qoo1234 於 2004/12/13 08:38:01

感謝各位的提供, 問題已解決, 我是利用上面的程式解決的, 雖然A程式沒有提供SOURCE可以修改CAPTION, 但是有提供DCU可以編譯及一支DPR, 我發現雖然 A程式可以改變CAPTION內容, 但這是在程式完成CREATE及RUN之後才會發生的事件, 所以我在 PROJECT->OPTIONS->APPLICATION->TITLE 輸入TITLE STRING, 然後以上述程式找我設定的CAPTION就可以在程式被改掉CAPTION之前先結束 A程式了, 雖然有點偷吃步, 但還是達成目的, 不過我再看了版主下面提供的資料, 找到相關RAIN兄的寫法, 似乎更能精確的來關閉指定的程式, 經測試也可以達成! 謝謝! http://delphi.ktop.com.tw/topic.php?topic_id=33946