请问,shellexecute()怎么使用(100分)

huafann · 2003-06-05

我现在想用它来执行A盘下的DEMO.BAT, 应该怎么写呢 用WINEXEC('A:/DEMO.BAT',SW_SHOW)不行,是不时WINEXEC只能用于EXE文件呀.

JamesBond_L · 2003-06-05

深入浅出ShellExecute 作者：徐景周 Q: 如何打开一个应用程序？ ShellExecute(this->m_hWnd,"open","calc.exe","","", SW_SHOW ); 或 ShellExecute(this->m_hWnd,"open","notepad.exe", "c:/MyLog.log","",SW_SHOW ); Q: 如何打开一个同系统程序相关连的文档？ ShellExecute(this->m_hWnd,"open", "c:/abc.txt","","",SW_SHOW ); Q: 如何打开一个网页？ ShellExecute(this->m_hWnd,"open", "http://www.google.com","","", SW_SHOW ); Q: 如何激活相关程序，发送EMAIL？ ShellExecute(this->m_hWnd,"open", "mailto:nishinapp@yahoo.com","","", SW_SHOW ); Q: 如何用系统打印机打印文档？ ShellExecute(this->m_hWnd,"print", "c:/abc.txt","","", SW_HIDE); Q: 如何用系统查找功能来查找指定文件？ ShellExecute(m_hWnd,"find","d:/nish", NULL,NULL,SW_SHOW); Q: 如何启动一个程序，直到它运行结束？ 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; //入口参数 ZeroMemory(&StartupInfo, sizeof(StartupInfo)); StartupInfo.cb = sizeof StartupInfo ; //分配大小 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..."); } Q: 如何显示文件或文件夹的属性？ SHELLEXECUTEINFO ShExecInfo ={0}; ShExecInfo.cbSize = sizeof(SHELLEXECUTEINFO); ShExecInfo.fMask = SEE_MASK_INVOKEIDLIST ; ShExecInfo.hwnd = NULL; ShExecInfo.lpVerb = "properties"; ShExecInfo.lpFile = "c:/"; //也可以是文件 ShExecInfo.lpParameters = ""; ShExecInfo.lpDirectory = NULL; ShExecInfo.nShow = SW_SHOW; ShExecInfo.hInstApp = NULL; ShellExecuteEx(&ShExecInfo);

JamesBond_L · 2003-06-05

你的也可以改为： WINEXEC('[red]start[/red] A:/DEMO.BAT',SW_SHOW)

franczx · 2003-06-05

uses shellapi;

Dp521 · 2003-06-05

可能没有比＇007_L＇更完整的回答了！

JamesBond_L · 2003-06-05

谁是007_L？

chnplzh · 2003-06-05

JamesBond_L，已经非常完整了。 至于执行DOS下面的批处理文件，还是使用CreateProcess比较好。以下是 我软件自动升级的一段代码，全部给你了： procedure SoftUpdate;  //删除程序   var     BatchFile: TextFile;     BatchFileName: string;     ProcessInfo: TProcessInformation;     StartUpInfo: TStartupInfo;   begin     BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';     AssignFile(BatchFile, BatchFileName);     Rewrite(BatchFile);     Writeln(BatchFile, ':try');     writeln(BatchFile, 'ren "'+ExtractFilePath(ParamStr(0))+'chwiseljgfc.exe "'+' "chwiseljgfc_old.exe"');     Writeln(BatchFile, 'del "' + ParamStr(0) + '"');     Writeln(BatchFile, 'if exist "' + ParamStr(0) + '"' + ' goto try');     writeln(BatchFile,':try1');     writeln(BatchFile, 'ren "'+ExtractFilePath(ParamStr(0))+'_chwiseljgfc.exe "'+' "chwiseljgfc.exe"');     writeln(BatchFile,'if exists " '+ExtractFilePath(ParamStr(0))+'_chwiseljgfc.exe '+'"'+'goto try1');     Writeln(BatchFile, 'del %0');     CloseFile(BatchFile);     FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);     StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;     StartUpInfo.wShowWindow := SW_HIDE;     if CreateProcess(nil, PChar(BatchFileName), nil, nil,       False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,       ProcessInfo) then     begin       CloseHandle(ProcessInfo.hThread);       CloseHandle(ProcessInfo.hProcess);     end;   end;

DoubleWood · 2003-06-05

to JamesBond_L:   if  JamesBond = 007 then     JamesBond_L = 007_L

JamesBond_L · 2003-06-05

哈哈~~厲害~~ chnplzh﹐你給我那個干嗎﹖

请问,shellexecute()怎么使用(100分)

huafann

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

franczx

Unregistered / Unconfirmed

Dp521

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

chnplzh

Unregistered / Unconfirmed

DoubleWood

Unregistered / Unconfirmed

JamesBond_L

Unregistered / Unconfirmed

Similar threads