怎么用vc调用如autocad或者word之类的程序？

[bluekey8]

怎么用vc调用如autocad或者word之类的程序？请指教!

[bluekey8]

没有人知道么？

[0sch]

比较复杂，但是功能较多的方法：用进程实现
如何启动一个程序，直到它运行结束？
SHELLEXECUTEINFO ShExecInfo = {0};
ShExecInfo.cbSize = sizeof(SHELLEXECUTEINFO);
ShExecInfo.fMask = SEE_MASK_NOCLOSEPROCESS;
ShExecInfo.hwnd = NULL;
ShExecInfo.lpVerb = NULL;
ShExecInfo.lpFile = "c:\\MyProgram.exe";
ShExecInfo.lpParameters = "";
ShExecInfo.lpDirectory = NULL;
ShExecInfo.nShow = SW_SHOW;
ShExecInfo.hInstApp = NULL;
ShellExecuteEx(&ShExecInfo);
WaitForSingleObject(ShExecInfo.hProcess,INFINITE);
//如果你想启动即可，可以取消这一句
或：
PROCESS_INFORMATION ProcessInfo;
STARTUPINFO StartupInfo; //This is an [in] parameter
ZeroMemory(&StartupInfo, sizeof(StartupInfo));
StartupInfo.cb = sizeof StartupInfo ; //Only compulsory field
if(CreateProcess("c:\\winnt\\notepad.exe", NULL,
NULL,NULL,FALSE,0,NULL,
NULL,&StartupInfo,&ProcessInfo))
{
WaitForSingleObject(ProcessInfo.hProcess,INFINITE);//如果你想启动即可，可以取消这一句

CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
}
else
{
MessageBox("The process could not be started...");
}

[codelover]

_Application m_App;
Documents m_Docs;
Selection m_Sel;
m_Docs.ReleaseDispatch();
m_Sel.ReleaseDispatch();
m_App.m_bAutoRelease=true;
if(!m_App.CreateDispatch("Word.Application"))
{
AfxMessageBox("打开Word2000失败");
exit(1);
}

COleVariant varFilePath(strFilePath);
COleVariant varstrNull("");
COleVariant varZero((short)0);
COleVariant varTrue(short(1),VT_BOOL);
COleVariant varFalse(short(0),VT_BOOL);
COleVariant varOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
m_Docs.AttachDispatch(m_App.GetDocuments());
m_Docs.Open(varFilePath,varFalse,varFalse,varFalse,
varstrNull,varstrNull,varFalse,varstrNull,
varstrNull,varTrue,varTrue,varTrue, varFalse, varFalse, varFalse);

m_Sel.AttachDispatch(m_App.GetSelection());
m_Sel.TypeText("Modify in Visual C++");
m_Docs.ReleaseDispatch();
m_Sel.ReleaseDispatch();
m_App.Quit(varTrue, varOpt, varOpt);

[0sch]

比较简单的方法：
::ShellExecute(NULL,"open","c:\\constant.exe",NULL,NULL,SW_HIDE);//调用程序...

[zy_xiao]

我开发过,用Word Automation实现.

[bluekey8]

是不是Execute("c:/autocad2000/autocad","SW_SHOWNORMAL")就可以了呢？这个语句是打开autocad程序。可是我想调用的是一个autocad文件，从而打开autocad程序阿！

[bluekey8]

Execute("c:/autocad2000/autocad",SW_SHOWNORMAL)