各位先進好！ 程式A的OnClose 如下： procedure TForm1.FormClose(Sender:TObject;var Action: TCloseAction); begin Action := caNone; Visible := False; end; 現在程式B中用Postmessage（A.handle,WM_close,0,0）;不再能關閉程式A Q:請問在程式B如何可以關閉程式A？

你好： WM_CLOSE 訊息在處理時有呼叫 OnClose 事件，這是你無法關閉的原因。 請改用 Postmessage (StrToInt (Edit1.Text),WM_QUIT,0,0); 因為這個訊息 不會呼叫 OnClose 事件。列出程式碼供你研究    

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;

PS : 所有的訊息都會再傳遞出去，但 WM_QUIT 則直接中斷程式。

感謝前輩ha0009 的回應！ 在程式A被關閉時，需要release : ... id: Integer; ... UnRegisterHotKey（A.handle,id）; GlobalDeleteAtom（id）; 如果用WM_Quit 這個Resource 就沒法 release 發表人 - mathewzhao 於 2003/07/08 12:49:35

你好： 你的 A,handle 是哪來的< > 會不會是傳錯囉< > 你的 release 是在 OnClose 寫的嗎 如果是那把他改寫在 src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

感謝前輩ha0009 的回應！ A.handle是A程式的handle，我仔細檢查程式發現是我將Postmessage誤寫為Sendmessage，我把release從OnClose 放到OnDestory，這個問題就解決了！ 謝謝前輩ha0009的指點！