如何在cb中调用外部程序

[flingdragon]

我想在cb中，启动一个其他程序，例如：notepad(记事本)，不知道该如何操作？

[keenleung]

API函数ShellExecute

[JamesJiang]

使用WinExec或者CreateProcess两个API都行。
UINT WinExec(

LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);
BOOL CreateProcess(

LPCTSTR lpApplicationName, // pointer to name of executable module
LPTSTR lpCommandLine, // pointer to command line string
LPSECURITY_ATTRIBUTES lpProcessAttributes, // pointer to process security attributes
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
BOOL bInheritHandles, // handle inheritance flag
DWORD dwCreationFlags, // creation flags
LPVOID lpEnvironment, // pointer to new environment block
LPCTSTR lpCurrentDirectory, // pointer to current directory name
LPSTARTUPINFO lpStartupInfo, // pointer to STARTUPINFO
LPPROCESS_INFORMATION lpProcessInformation // pointer to PROCESS_INFORMATION
);

[flingdragon]

能详细一点吗。初学者..

[kingcaiyao]

有三种方法：
1.WinExec("c:\\winnt\\system32\\Notepad.exe",SW_SHOW);
2.ShellExecute(Handle,"Open","c:\\winnt\\system32\\Notepad.exe",NULL,NULL,SW_SHOW);
3.CreatProcess
void __fastcall TForm1::Button1Click(TObject *Sender)
{
STARTUPINFO StartInfo;
PROCESS_INFORMATION ProcessInfo;
StartInfo.cb=sizeof(STARTUPINFO);
StartInfo.lpReserved=0;
StartInfo.lpDesktop=NULL;
StartInfo.lpTitle=NULL;
StartInfo.dwX=0;
StartInfo.dwY=0;
StartInfo.dwXSize=90;
StartInfo.dwYSize=90;
StartInfo.dwXCountChars=0;
StartInfo.dwXCountChars=0;
StartInfo.dwFillAttribute=0;
StartInfo.dwFlags=STARTF_USEPOSITION|STARTF_USESIZE|STARTF_USESHOWWINDOW;
StartInfo.wShowWindow=SW_SHOW;
StartInfo.cbReserved2=0;
StartInfo.lpReserved2=NULL;
StartInfo.hStdInput=0;
StartInfo.hStdOutput=0;
StartInfo.hStdError=0;
if(!::CreateProcess(NULL,(LPCTSTR)"c:\\winnt\\system32\\calc.exe",NULL,NULL,FALSE,NORMAL_PRIORITY_CLASS,NULL,NULL,&StartInfo,&ProcessInfo))
{
Application->MessageBox("Failed to execute external program!","Error",MB_OK+MB_ICONERROR);
return;
}

hProcess=ProcessInfo.hProcess;
::WaitForSingleObject(hProcess,INFINITE);
Application->MessageBox("The process has been terminated!","Error",MB_OK+MB_ICONERROR);
}

[sjd163]

收藏

[flingdragon]

谢谢各位大虾！

[钛哥]

mark