首页 新闻 会员 周边 捐助

求MFC跨线程关闭窗口的方法或代码

0
悬赏园豆:200 [已关闭问题]

如题,在工作线程里关闭主对话框

望知道的人不吝赐教,谢了

amy0803的主页 amy0803 | 初学一级 | 园豆:0
提问于:2008-10-14 16:08
< >
分享
其他回答(2)
0

不接触好多年,忘记啦

说个思路,可以给线程传递当前窗体的句柄,然后利用句柄关闭。

FindWind也可以,不过要是开两个不能保证关正确

Birdshover | 园豆:352 (菜鸟二级) | 2008-10-14 17:42
1

简单的说,不建议跨线程访问MFC窗口对象。

MFC句柄封装类只在创建句柄的线程中有效,在其它线程中访问会出现无法预料的结果。适当的访问方式是直接访问句柄。
 

参考以下代码的做法

Code
需要一个用来注入的dll(inject.dll)及一个调用程序(caller.exe)


caller.exe
procedure TestHook;
var pwnd,hChild, hwndInject :hwnd;
msg:tmsg;
begin
//通过窗口标题用FindWindow找到要注入的程序的主窗口句柄pwnd
pwnd := findwindow('Progman',nil);
//用FindwindowEx(hMain,0,nil,nil)找到要处理的子窗口句柄hChild
hChild := findWindowEx(pwnd,0,nil,nil);
//用getwindowThreadProcessid(hChild,nil)找到要注入的线程
dwThreadID := getwindowThreadProcessid(hChild,nil);
//调用 inject.dll的SetInjectHook方法
SetInjectHook(dwThreadID);
//等待消息返回
getmessage(msg,0,0,0);
//找到注入的窗口
hwndInject:= findwindow(nil,'InjectForm');
//发送控制消息,将目标窗体的句柄作为wparam,控制参数以lparam传入
sendMessage( hwndInject, wm_app,hChild,integer(true));
//关闭注入的窗口
sendMessage( hwndInject,wm_close,0,0);
//等待窗口关闭
sleep(500);
//检查是否成功关闭
assert(not iswindow( hwndInject));
//去掉挂钩
setDipsHook(0);
end;

//下面说明 Inject.dll的SetInjectHook的具体操作
在全局定义以下变量
var
g_hhook :Hhook
=0;
g_dwThreadidInject :dword
=0;
g_hInjectfrm:hwnd;


function SetInjectHook(dwThreadid:DWORD):boolean;
begin
result :
= false;
//如果线程标志为0则用于去掉钩子,否则进行动态库注入
if dwThreadid<>0 then
begin
assert(g_hhook
=0);
//保存当前线程的ID到 g_dwThreadidInject
g_dwThreadidInject := getCurrentThreadid;
//下一个GetMessage的钩子到目标线程
//GetMsgProc是在下面定义的一个函数,在第一次调用时将自定义的form在目标线程中创建出来
//这样就能通过这个自定义的form对目标线程进行进程内控制了
g_hhook := setWindowsHookEx(wh_getMessage,GetMsgProc,hInstance,dwThreadid);
result :
= g_hhook <> null;
if result then
//发一个空的信息以便于立即创建这个自定义form
result := postThreadMessage(dwThreadid, wm_Null,0,0);
//等待半秒钟,以保证调用者可以找到这个刚创建的form
sleep(500);
end
else
begin
assert(g_hhook
<>0);
//去掉钩子
result := unHookWindowsHookEx(g_hhook);
g_Hhook :
= 0;
end;
end;

//定义一个全局的是否第一个消息的标志
var
fFirstTime:boolean
= true;
//这个函数用于在收到第一个消息时创建自定义窗体,以便于远程控制
function GetMsgProc(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT; stdcall;
begin
//如果是第一次
if fFirstTime then
begin
fFirstTime :
= false;
//创建窗体
InjectFrm := TinjectFrm.create(nil);
//保存窗体句柄
g_hInjectfrm := InjectFrm.handle;
end;
//调用默认处理,这一句可不能忘记
result := callNexthookEx(g_hhook,code,wparam,lparam);
end;
RicoRui | 园豆:3663 (老鸟四级) | 2008-10-15 13:49
0

 同意楼上!

左飞 | 园豆:120 (初学一级) | 2008-10-15 16:58
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册