1.5w+
社区成员
如果调用其它程序？？在线等待
在我的主程序里，调用其他程序，显示时在最前面，总有各种问题，要是设成子窗体调用，就不刷新，要是发消息吧，有时后又没反应，没有一个好的方法，用失去焦点的方法，应为我调的是自己开发的ie ，弹出新窗体时，失去焦点，又不行，怎么才能
调用呢，最大小话，都和我的 主窗体一致！！！！！！！
调用呢，最大小话，都和我的 主窗体一致！！！！！！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
闻缺陷则喜何志丹 2004-08-12
if(Message.message == WM_PAINT)
{
::TranslateMessage(&Message);
::DispatchMessage(&Message);
}
这儿可以允许更多的消息
{
::TranslateMessage(&Message);
::DispatchMessage(&Message);
}
这儿可以允许更多的消息
闻缺陷则喜何志丹 2004-08-12
要是设成子窗体调用，就不刷新， 这样就可以刷新了
----------
STARTUPINFO startupInfo;
memset(&startupInfo,0,sizeof(STARTUPINFO));
startupInfo.cb = sizeof(STARTUPINFO);
PROCESS_INFORMATION ProcessInfo;
BOOL bCreate = ::CreateProcess
(NULL,
(char*)(LPCTSTR)sCommand,
NULL,
NULL,
FALSE,
0,
NULL,
NULL,
&startupInfo,
&ProcessInfo);
if(bCreate==FALSE)
{
AfxMessageBox("加载不成功！");
return;
}
WaitForInputIdle(ProcessInfo.hProcess, 1000);
//以下一段实现堵塞:除了继续相应刷新界面消息外，不再相应其他任何消息
MSG Message;
DWORD ExitCode ;
::GetExitCodeProcess(ProcessInfo.hProcess,&ExitCode);
while(ExitCode==STILL_ACTIVE)
{
if (::PeekMessage(&Message,NULL,0,0,PM_REMOVE))
{
if(Message.message == WM_PAINT)
{
::TranslateMessage(&Message);
::DispatchMessage(&Message);
}
}
::GetExitCodeProcess(ProcessInfo.hProcess,&ExitCode);
}
----------
STARTUPINFO startupInfo;
memset(&startupInfo,0,sizeof(STARTUPINFO));
startupInfo.cb = sizeof(STARTUPINFO);
PROCESS_INFORMATION ProcessInfo;
BOOL bCreate = ::CreateProcess
(NULL,
(char*)(LPCTSTR)sCommand,
NULL,
NULL,
FALSE,
0,
NULL,
NULL,
&startupInfo,
&ProcessInfo);
if(bCreate==FALSE)
{
AfxMessageBox("加载不成功！");
return;
}
WaitForInputIdle(ProcessInfo.hProcess, 1000);
//以下一段实现堵塞:除了继续相应刷新界面消息外，不再相应其他任何消息
MSG Message;
DWORD ExitCode ;
::GetExitCodeProcess(ProcessInfo.hProcess,&ExitCode);
while(ExitCode==STILL_ACTIVE)
{
if (::PeekMessage(&Message,NULL,0,0,PM_REMOVE))
{
if(Message.message == WM_PAINT)
{
::TranslateMessage(&Message);
::DispatchMessage(&Message);
}
}
::GetExitCodeProcess(ProcessInfo.hProcess,&ExitCode);
}
zdy0155 2004-08-12
怎么调用excel 保存成html???? ??
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
CComVariant FileName(_T("C:\\2.html")); //文件名
CComVariant FileFormat(8); //重点，看下面的说明
CComVariant LockComments(false),Password(_T(""));
CComVariant AddToRecentFiles(false),WritePassword(_T(""));
CComVariant ReadOnlyRecommended(false),EmbedTrueTypeFonts(false);
CComVariant SaveNativePictureFormat(false),SaveFormsData(false);
CComVariant SaveAsAOCELetter(false);
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
ExcelApp.SetVisible(true);
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("c:\\test.xls")));
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//wbMyBook.SaveAs(COleVariant(),FileFormat,covOptional,covOptional,covOptional,covOptional,0, covOptional,covOptional,covOptional,covOptional); ??参数怎么设置啊？？？
wbMyBook.SaveAs(FileName,FileFormat,LockComments,Password,
AddToRecentFiles,covOptional,1,
EmbedTrueTypeFonts,SaveNativePictureFormat,SaveFormsData,
SaveAsAOCELetter);
//AfxMessageBox("asdf");
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
//ExcelApp.Quit();
ExcelApp.ReleaseDispatch();
_Application ExcelApp;
Workbooks wbsMyBooks;
_Workbook wbMyBook;
Worksheets wssMysheets;
_Worksheet wsMysheet;
Range rgMyRge;
CComVariant FileName(_T("C:\\2.html")); //文件名
CComVariant FileFormat(8); //重点，看下面的说明
CComVariant LockComments(false),Password(_T(""));
CComVariant AddToRecentFiles(false),WritePassword(_T(""));
CComVariant ReadOnlyRecommended(false),EmbedTrueTypeFonts(false);
CComVariant SaveNativePictureFormat(false),SaveFormsData(false);
CComVariant SaveAsAOCELetter(false);
if (!ExcelApp.CreateDispatch("Excel.Application",NULL))
{
AfxMessageBox("创建Excel服务失败!");
exit(1);
}
ExcelApp.SetVisible(true);
wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);
wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t("c:\\test.xls")));
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
//wbMyBook.SaveAs(COleVariant(),FileFormat,covOptional,covOptional,covOptional,covOptional,0, covOptional,covOptional,covOptional,covOptional); ??参数怎么设置啊？？？
wbMyBook.SaveAs(FileName,FileFormat,LockComments,Password,
AddToRecentFiles,covOptional,1,
EmbedTrueTypeFonts,SaveNativePictureFormat,SaveFormsData,
SaveAsAOCELetter);
//AfxMessageBox("asdf");
rgMyRge.ReleaseDispatch();
wsMysheet.ReleaseDispatch();
wssMysheets.ReleaseDispatch();
wbMyBook.ReleaseDispatch();
wbsMyBooks.ReleaseDispatch();
//ExcelApp.Quit();
ExcelApp.ReleaseDispatch();
lizmei001 2004-08-03
字窗口应该可以
holyeagle 2004-08-03
只要你有了子窗口的handle，可以发消息啊。可能你是得到消息做处理，处理过程中又发消息，这样消息队列被阻塞了。用
PeekMessage()
GetMessage()/TranslateMessage()
DispatchMessage()
进行一下消息分发试试
PeekMessage()
GetMessage()/TranslateMessage()
DispatchMessage()
进行一下消息分发试试
zdy0155 2004-08-03
CWnd *pl=this->FindWindow(NULL,"ff");
if(pl)
{
this->ModifyStyle(WS_POPUP ,WS_CHILD|WS_GROUP);
this->SetParent(pl);
}
我这么设，子窗体没有焦点，控件都没焦点，但按钮有焦点为什么??
if(pl)
{
this->ModifyStyle(WS_POPUP ,WS_CHILD|WS_GROUP);
this->SetParent(pl);
}
我这么设，子窗体没有焦点，控件都没焦点，但按钮有焦点为什么??
liagn 2004-08-03
如果是子窗体的话，当你的主程序窗体最小化的时候，子窗体也会相应最小化呀。
seilfer2000 2004-08-03
不太明白你的意思，不过你说的这个好像不太好实现吧，发消息为什么没反应？
zdy0155 2004-08-03
兄弟们那么简单，我不就会了，不是简单的调用，要和我的主程序保持一致才行啊，
最大化了，最小化了，刷新的问题！
最大化了，最小化了，刷新的问题！
Kudeet 2004-08-03
http://www.vckbase.com/document/viewdoc/?id=416
悲酥清风 2004-08-03
WinExec，ShellExecute，createprocess
hopen 2004-08-03
用CreateProcess这个函数，msdn上面有例子
holyeagle 2004-08-03
楼主用什么方法调用的新程序？shellexec还是winexec,可以试一下shellexec，把主窗口设置成NULL或者用desktop。
syy64 2004-08-03
winexe
10年经验1张图-职业教育机构就业课程体系规划 10年经验一张图，资源包含一张详细的令人发指的思维导图（其中资源链接直接可以用），若干word文档、就业课ppt、简历模板等等资源，帮助企业老师解决就业课设计和实施问题。
【Matlab仿真】基于贝叶斯准则和最小平均错误概率准则的二元信号检测及性能分析 【Matlab仿真】基于贝叶斯准则和最小平均错误概率准则的二元信号检测及性能分析，通过观察检测概率和虚警概率随着检测门限的变化而变化
