1,184
社区成员
发帖
与我相关
我的任务
分享★..请问在A程序中如何关闭B程序★
Hwnd := FindWindow('TForm1', 'aaa');
if Hwnd <> 0 then
begin
DestroyWindow(Hwnd);
end;
end;
为什么关不掉啊?
if Hwnd <> 0 then
begin
DestroyWindow(Hwnd);
end;
end;
为什么关不掉啊?
...全文
请发表友善的回复…
发表回复
StarDnaFox 2003-07-20
- 打赏
- 举报
万分感谢
但是请问destroywindow为什么不行啊
但是请问destroywindow为什么不行啊
WWWWA 2003-07-20
- 打赏
- 举报
var
wnd:HWND;
begin
wnd:=Findwindow(nil,'dyyd.pas - 记事本');//根据标题查找句柄
if wnd>0 then
sendMessage(wnd,WM_CLOSE,0,0);//发送关闭消息
end;
wnd:HWND;
begin
wnd:=Findwindow(nil,'dyyd.pas - 记事本');//根据标题查找句柄
if wnd>0 then
sendMessage(wnd,WM_CLOSE,0,0);//发送关闭消息
end;
