網路上看到的一個範例

提到做完這個subclass動作後，將無法結束程式

但試不出來，不知何處出了問題

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
OldWndProc: Pointer;

implementation

{$R *.DFM}

function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;
begin
if Msg=WM_CLOSE then exit;
Result := CallWindowProc(OldWndProc, hHwnd, Msg, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
OldWndProc:= Pointer(GetWindowLong(Self.Handle, GWL_WNDPROC));
SetWindowLong(Self.Handle, GWL_WNDPROC, Longint(@NewWndProc));
end;

end.

你好，
你hook了原來的WndProc，然後又自行處理WM_CLOSE 這個訊息，但是…你就簡單一句話 exit，那樣子是無法幫你結束你的程式的。單純 exit是指結束NewWndProc，但非你的主程式結束。

試著then Application.Terminate; 試看看也許ok，因為我沒自行處理過WM_CLOSE

aftcast兄可能誤會我的意思了

那個範例是說，原本我按button1可以是常結束程式的

但只要我加了那個subclass之後

程式就會不結束

但我試了一下，程式還是會close的

所以我才會覺得是不是我哪裡搞錯呢

可以試著把
SetWindowLong(Self.Handle, GWL_WNDPROC, Longint(@NewWndProc));
改成
SetWindowLong(Application.Handle, GWL_WNDPROC, Longint(@NewWndProc));

試看看是否還是會結束?
或者把button1的事件貼一下。
謝謝。

試了一下還是不行
我的button1的程式就只有close而以

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

對不起，實在看不出來問題在哪兒，又加上我手中沒有delphi可以試。所以只能猜了。
最後一個猜的地方是改了紅色的地方。

function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;
begin
if Msg=WM_CLOSE or Msg=WM_QUERYENDSESSION then exit;
Result := CallWindowProc(OldWndProc, hHwnd, Msg, wParam, lParam);
end;

再不行就要請手中用delphi的人來實測幫你了…

測了一下 還是沒成功

感謝大大的幫忙 :)

hi,

function NewWndProc(hHwnd, Msg, wParam, lParam: LongWORD): Longint; stdcall;
begin
if Msg=WM_CLOSE then exit; //<-- 碰到 WM_CLOSE 就離開(沒有任何處理),所以當然不會關閉
Result := CallWindowProc(OldWndProc, hHwnd, Msg, wParam, lParam);
end;

NewWndPro的確是可以subclass掉原有的WndProc，
所以你可以發覺當你按下Form右上角的X並無法將視窗關閉。
因為你已經將WM_CLOSE這個訊息處理掉了(if Msg=WM_CLOSE then exit;)

但為何按下button1還是會將視窗關閉呢？那是因為Close這個由VCL幫我們封裝好的procedure
是在接受到WM_CLOSE這個訊息才作用的，他的作用當然就是把視窗關閉，呵。
而當你按下button1直接呼叫close時，此時又沒有發出WM_CLOSE所以NewWndProc當然沒有作用。

如果要在按下button1時不將視窗關閉，建議可以在CloseQuery這個事件中編寫你的程式碼來阻止視窗的關閉。