S
shubiao123
Unregistered / Unconfirmed
GUEST, unregistred user!
我想做一个钩子，用来关闭某个窗体，该怎么实现呢？最好能给我举个简单的例子。非常感谢！
白
白河愁
Unregistered / Unconfirmed
GUEST, unregistred user!
关闭窗体不需要用钩子。
D
de410
Unregistered / Unconfirmed
GUEST, unregistred user!
关闭存在的计算器窗口的例子
rocedure TForm1.Button1Click(Sender: TObject);var HWndCalculator:HWnd;Begin // 找到存在的计算器窗口 HWndCalculator:= FindWindow(nil, '计算器'); // 关闭存在的计算器窗口 if HWndCalculator <> 0 then SendMessage(HWndCalculator, WM_CLOSE, 0, 0);end;
rocedure TForm1.Button1Click(Sender: TObject);var HWndCalculator:HWnd;Begin // 找到存在的计算器窗口 HWndCalculator:= FindWindow(nil, '计算器'); // 关闭存在的计算器窗口 if HWndCalculator <> 0 then SendMessage(HWndCalculator, WM_CLOSE, 0, 0);end;
S
shubiao123
Unregistered / Unconfirmed
GUEST, unregistred user!
用钩子关闭窗体：在窗体要创建的时候，钩子先捕获窗体创建的消息，然后发送关闭信息，即该窗口在屏幕上“画”出来之前就将这个窗口关掉，就好像没有出现过这个窗口一样 ， 我是想达到上面的效果。而不是窗体已经运行出来了，再去用消息关闭。请高人指教啊！
白
白河愁
Unregistered / Unconfirmed
GUEST, unregistred user!
那就没有简单的方法，此问题无解。
大
大器晚成
Unregistered / Unconfirmed
GUEST, unregistred user!
直接杀掉进程。
S
shubiao123
Unregistered / Unconfirmed
GUEST, unregistred user!
我现在只想实现上面的效果，到底用钩子能实现吗？代码应该怎么写呢？还请高手帮忙啊？帮忙给我写个简单的例子啊？