如果调用其它程序？？在线等待

[zdy0155]

在我的主程序里，调用其他程序，显示时在最前面，总有各种问题，要是设成子窗体调用，就不刷新，要是发消息吧，有时后又没反应，没有一个好的方法，用失去焦点的方法，应为我调的是自己开发的ie ，弹出新窗体时，失去焦点，又不行，怎么才能
调用呢，最大小话，都和我的 主窗体一致！！！！！！！

[syy64]

winexe

[holyeagle]

楼主用什么方法调用的新程序？shellexec还是winexec,可以试一下shellexec，把主窗口设置成NULL或者用desktop。

[hopen]

用CreateProcess这个函数，msdn上面有例子

[悲酥清风]

WinExec，ShellExecute，createprocess

[Kudeet]

http://www.vckbase.com/document/viewdoc/?id=416

[zdy0155]

兄弟们那么简单，我不就会了，不是简单的调用，要和我的主程序保持一致才行啊，
最大化了，最小化了，刷新的问题！

[seilfer2000]

不太明白你的意思，不过你说的这个好像不太好实现吧，发消息为什么没反应？

[liagn]

如果是子窗体的话，当你的主程序窗体最小化的时候，子窗体也会相应最小化呀。

[zdy0155]

CWnd *pl=this->FindWindow(NULL,"ff");


if(pl)
{
this->ModifyStyle(WS_POPUP ,WS_CHILD|WS_GROUP);
this->SetParent(pl);


}
我这么设，子窗体没有焦点，控件都没焦点，但按钮有焦点为什么??

[holyeagle]

只要你有了子窗口的handle，可以发消息啊。可能你是得到消息做处理，处理过程中又发消息，这样消息队列被阻塞了。用
PeekMessage()
GetMessage()/TranslateMessage()
DispatchMessage()
进行一下消息分发试试

[lizmei001]

字窗口应该可以

[zdy0155]

怎么调用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();

[闻缺陷则喜何志丹]

要是设成子窗体调用，就不刷新， 这样就可以刷新了
----------
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);
}

[闻缺陷则喜何志丹]

if(Message.message == WM_PAINT)
{
::TranslateMessage(&Message);
::DispatchMessage(&Message);
}
这儿可以允许更多的消息