科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道应用软件修改已经打开的对话框的浏览路径

修改已经打开的对话框的浏览路径

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

近做的一个小东西要控制另外一个程序的文件保存对话框,目的是让它只能保存到我指定的位置,:P,我要控制保存的数据。

作者:Yiling Lai 来源:CSDN 2008年3月23日

关键字: 对话 修改 Web开发 路径 软件

  • 评论
  • 分享微博
  • 分享邮件
 最近做的一个小东西要控制另外一个程序的文件保存对话框,目的是让它只能保存到我指定的位置,:P,我要控制保存的数据。
   我们知道用CFileDialog很容易设置对话框的初始浏览路径,只要在CFileDialog类的OPENFILENAME结构里用自己的目录改变lpstrInitialDir就可以了:
CFileDialog dlg;
dlg.m_ofn.lpstrInitialDir="c:\\WINDOWS";//这里设置对话框的浏览目录
dlg.DoModal();
可我要控制的是一个已经显示的对话框,这个时候再用m_ofn.lpstrInitialDir来设置就没有效果啦!我通过FindWindow找到了这个对话框的句柄,
CWnd * pWnd = FindWindow(NULL,"另存为");
 if(pWnd)
{
   ....//这里该怎么改呢?
}
最开始想的方法就是用钩子截获对话框打开时的消息,在他显示之前改变他的墨认路径。呵呵,不想这么麻烦,等有时间再去试。后来从一个回帖里找到了一种比较方便的方
这里还需要注意的一点就是第二步设置目录的时候要发送WM_SETTEXT消息,而不能直接用SetWindowText函数,因为它在跨进程使用的时候有问题,没有效果。
下面是部分关键代码:
CWnd * pWnd = FindWindow(NULL,"另存为");
CString sCtrlName;
CWnd *pedit;
CString filename;
TCHAR BUF[512];
if(pWnd)
{
     CWnd *pwnd=pWnd->GetWindow(GW_CHILD);//枚举保存对话框的所有子控件
     char *buf=new char[512];
     while(pwnd!=NULL)
    {
         ::GetClassName(pwnd->GetSafeHwnd(),buf,512);//得到枚举的控件是什么类型的,
         CString str=buf;   
         str.TrimRight();           
         if(str=="Edit")//如果枚举到保存文件名的EDIT
        {
            pedit=pwnd;//保存EDIT句柄用来发消息
            pwnd->SendMessage(WM_GETTEXT,sizeof(BUF)/sizeof(TCHAR),(LPARAM)(void*)BUF);
            filename=BUF;//完成第一步保存原始的文件名
        }
        if(str=="Button")//枚举到按钮,有保存和取消按钮
       {
            pwnd->SendMessage(WM_GETTEXT,sizeof(BUF)/sizeof(TCHAR),(LPARAM)(void*)BUF);
            //发消息得到按钮的标题
            CString str=BUF;
            str.TrimRight();
            if(str=="保存(&S)")//如果是保存按钮
            {   
               lstrcpy(BUF,(LPCTSTR)sPath);//sPath表示我们要设置的对话框浏览目录
               //发消息设置文件名EDIT为我们的路径名
               pedit->SendMessage(WM_SETTEXT,0,(LPARAM)BUF);
               //发消息模拟点击保存按钮
               ::SendMessage(pwnd->GetSafeHwnd(),WM_LBUTTONDOWN,0,0);
               ::SendMessage(pwnd->GetSafeHwnd(),WM_LBUTTONUP,0,0);
            }
        }
    }
     pwnd = pwnd->GetNextWindow();
}
pedit->SendMessage(WM_SETTEXT,0,(LPARAM)filename);//发消息还原EDIT里的文件名
delete buf; 
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章