方法一 uses WinProcs; …… begin WinExec(......); …… end. 和调用Pascal库函数没什么两样。 例：WinExec('D:\GoldPacs\GoldConfig.exe',sw_normal); 方法二 用ShellExecute更好，在USES段加入SHELLAPI，使用时如： 执行"c:\myapp\myapp.exe"参数为"-s" ShellExecute(handle,'open','c:\myapp\myapp.exe','-s','',SW_SHOWNORMAL); 第一个参数为父窗口句柄； 第二个参数为打开方式（OPEN，PRINT两种）； 第三个参数为执行文件全路径； 第四个参数为执行文件参数；(没有时为 nil ) 第五个参数为执行文件开始运行时的初始目录； 第六个参数为为执行文件运行方式(SW_HIDE,SW_MAXIMIZE,SW_MINIMIZE, SW_RESTORE,SW_SHOW,SW_SHOWDEFAULT,SW_SHOWMAXIMIZED,SW_SHOWMINIMIZED, SW_SHOWMINNOACTIVE,SW_SHOWNA,SW_SHOWNOACTIVATE,SW_SHOWNORMAL); 具体请看帮助。另外，如果为字符串参数，其中包含变量或运算的必需用PCHAR（）函数。 转自: http://www.cnread.net/cnread1/dnwl/cxsj/delphi/ztwd/cxyy/053.htm ShellExecute ShellExecute函数原型及参数含义如下： ShellExecute( HWND hwnd, //父窗口句柄 LPCSTR lpOperation, //操作类型 LPCSTR lpFile, //要进行操作的文件或路径 LPCSTR lpParameters, //当lpOperation为“explore”时指定要传递的参数，通常设为NULL LPCSTR lpDirectory, //指定默认目录，通常设为NULL INT nShowCmd //文件打开的方式，以通常方式还是最大化或最小化显示 ) 例子如下： //调用计算器 ShellExecute(NULL,"open","calc.exe",NULL,NULL,SW_SHOWNORMAL); //调用记事本 ShellExecute(NULL,"open","NOTEPAD.EXE",NULL,NULL,SW_SHOWNORMAL);v ●hWnd：用于指定父窗口句柄。当函数调用过程出现错误时，它将作为Windows消息窗口的父窗口。例如，可以将其设置为应用程序主窗口句柄，即Application.Handle，也可以将其设置为桌面窗口句柄（用GetDesktopWindow函数获得）。 ●Operation：用于指定要进行的操作。其中“open”操作表示执行由FileName参数指定的程序，或打开由FileName参数指定的文件或文件夹；“print”操作表示打印由FileName参数指定的文件；“explore”操作表示浏览由FileName参数指定的文件夹。当参数设为nil时，表示执行默认操作“open”。 ●FileName：用于指定要打开的文件名、要执行的程序文件名或要浏览的文件夹名。 ●Parameters：若FileName参数是一个可执行程序，则此参数指定命令行参数，否则此参数应为nil或PChar(0)。 ●Directory：用于指定默认目录。 ●ShowCmd：若FileName参数是一个可执行程序，则此参数指定程序窗口的初始显示方式，否则此参数应设置为0。 若ShellExecute函数调用成功，则返回值为被执行程序的实例句柄。若返回值小于32，则表示出现错误。 上述仅仅是ShellExecute函数的标准用法，下面将介绍它的特殊用法。 2.特殊用法 如果将FileName参数设置为“http:”协议格式，那么该函数将打开默认浏览器并链接到指定的URL地址。若用户机器中安装了多个浏览器，则该函数将根据Windows 9x/NT注册表中http协议处理程序（Protocols Handler）的设置确定启动哪个浏览器。 格式一：http://网站域名。 如：ShellExecute(handle, ‘open’, http:// ; www.neu.edu.cn’, nil, nil, SW_SHOWNORMAL); 格式二：http://网站域名/网页文件名。 如：ShellExecute(handle, ‘open’, http:// ; www.neu.edu.cn/default.htm’,nil,nil, SW_SHOWNORMAL); 如果将FileName参数设置为“mailto:”协议格式，那么该函数将启动默认邮件客户程序，如Microsoft Outlook（也包括Microsoft Outlook Express）或Netscape Messanger。若用户机器中安装了多个邮件客户程序，则该函数将根据Windows 9x/NT注册表中mailto协议处理程序的设置确定启动哪个邮件客户程序。 格式一：mailto: 如：ShellExecute(handle,‘open’, ‘mailto:’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口。 格式二：mailto:用户账号@邮件服务器地址 如：ShellExecute(handle, ‘open’,‘ mailto:[email protected]’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址。若指定多个收件人地址，则收件人地址之间必须用分号或逗号分隔开（下同）。 格式三：mailto:用户账号@邮件服务器地址?subject=邮件主题＆body=邮件正文 如：ShellExecute(handle, ‘open’, ‘ mailto:[email protected]？subject=Hello＆Body=This is a test’, nil, nil, SW_SHOWNORMAL);打开新邮件窗口，并自动填入收件人地址、邮件主题和邮件正文。若邮件正文包括多行文本，则必须在每行文本之间加入换行转义字符％0a。 例子(delphi): 在一个应用程序调用c:\Project1.exe; ShellExecute(handle, 'open','c:\Project1.exe','字串内容',nil, SW_SHOWNORMAL); 在Project1.exe里可以调用: procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=1 to paramcount do if ParamStr(i)<>'' then showmessage(ParamStr(i)); end; 最后的那个参数，为窗口指定可视性方面的一个命令。 请用下述任何一个常数 SW_HIDE 隐藏窗口，活动状态给令一个窗口 SW_MINIMIZE 最小化窗口，活动状态给令一个窗口 SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态 SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态 SW_SHOWMAXIMIZED 最大化窗口，并将其激活 SW_SHOWMINIMIZED 最小化窗口，并将其激活 SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口 SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口 SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口 SW_SHOWNORMAL 与SW_RESTORE相同
使用带参数来调用外部可执行文件
{*********************************************************} { } { 使用ShellExecute带参数调用外部Ｅｘｅ文件 } { } { 版权所有 (c) 2005,2008 江智勇 } { E_Mail:[email protected] } { Msn:[email protected] } { QQ:89461298 } { } {********************************************************} 假如先编译一个Ｅｘｅ文件,在工程里面写下如下代码： 工程一、program Project1; uses Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} var Str:string; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Str:=ParamStr(1); //在运行时去读是否有带参数值是：‘jiang’,如果没有则结束自己。 if Str<>'jiang' then begin Application.Terminate; Exit; end; Application.Run; end. 工程二的调用：program Project2; procedure TForm1.Button1Click(Sender: TObject); var sFileName,sParam,sFilePath: string; begin sFileName:=ExtractFilePath(Application.ExeName)+'Project1.exe'; sFilePath:='ExtractFilePath(Application.ExeName)'; sParam:='jiang'; ShellExecute(0, 'Open', PChar(sFileName), PChar(sParam), PChar(sFilePath), SW_SHOW); end; 工程一只能通过工程来调用才可以打开，如果单独打开是不行的。因为没有传参。当然传参过程中可以进行加密。
执行程序，并等待其返回值System.exitCode
//执行程序，并等待其返回值System.exitCode function WinExecAndWait32(sExe:String):DWord; overLoad; function WinExecAndWait32(sExe:String; Visibility:Integer;var mOutputs:string):Cardinal; overLoad; //========================函数代码与类具体执行段=======================// Implementation //执行程序，并等待其返回值System.exitCode //http://delphi.ktop.com.tw/board.php?cid=168&fid=914&tid=36163 function WinExecAndWait32(sExe:String):DWord; var rt, n: DWORD; si : STARTUPINFO; pi : PROCESS_INFORMATION; p : pAnsiChar; begin result:=0; // zeroMemory(@si, sizeOf(si)); si.cb:=sizeOf(si); zeroMemory(@pi, sizeOf(pi)); if not CreateProcess(nil, pChar(sExe), nil, nil, FALSE, CREATE_NO_WINDOW, nil, nil, si, pi) then begin raise exception.create('CreateProcess failed!'); exit; end; repeat rt:=WaitForSingleObject(pi.hProcess, 0); Application.ProcessMessages(); Sleep(100); until rt<>wait_TimeOut; if (GetExitCodeProcess(pi.hProcess, rt)) then result:=rt; // CloseHandle(pi.hProcess); CloseHandle(pi.hThread); end; //执行程序并等待其返回值，包括一系列输出 //http://delphi.ktop.com.tw/board.php?cid=30&fid=72&tid=27232 function WinExecAndWait32(sExe:String;Visibility:Integer;var mOutputs:string):Cardinal; var sa:TSecurityAttributes; hReadPipe,hWritePipe:THandle; ret:BOOL; strBuff:array[0..255] of char; lngBytesread:DWORD; WorkDir:String; StartupInfo:TStartupInfo; ProcessInfo:TProcessInformation; begin FillChar(sa,Sizeof(sa),#0); sa.nLength := Sizeof(sa); sa.bInheritHandle := True; sa.lpSecurityDescriptor := nil; //lpSecurityDeforbiddenor ret := CreatePipe(hReadPipe, hWritePipe, @sa, 0); WorkDir:=ExtractFileDir(Application.ExeName); FillChar(StartupInfo,Sizeof(StartupInfo),#0); StartupInfo.cb:=Sizeof(StartupInfo); StartupInfo.dwFlags:=STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; StartupInfo.wShowWindow:=Visibility; StartupInfo.hStdOutput:=hWritePipe; StartupInfo.hStdError:=hWritePipe; if not CreateProcess(nil, PChar(sExe), { pointer to command line string } @sa, { pointer to process security attributes } @sa, { pointer to thread security attributes } True, { handle inheritance flag } // CREATE_NEW_CONSOLE or { creation flags } NORMAL_PRIORITY_CLASS, nil, { pointer to new environment block } PChar(WorkDir), { pointer to current directory name, PChar} StartupInfo, { pointer to STARTUPINFO } ProcessInfo) { pointer to PROCESS_INF } then Result := INFINITE {-1} else begin // Form1.Hide; // FileOpen(FileName,fmShareExclusive); // SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW); ret:=CloseHandle(hWritePipe); mOutputs:=''; while ret do begin FillChar(strBuff,Sizeof(strBuff),#0); ret := ReadFile(hReadPipe, strBuff, 256, lngBytesread, nil); mOutputs := mOutputs + strBuff; end; // Application.ProcessMessages; WaitforSingleObject(ProcessInfo.hProcess, INFINITE); GetExitCodeProcess(ProcessInfo.hProcess, Result); CloseHandle(ProcessInfo.hProcess); { to prevent memory leaks } CloseHandle(ProcessInfo.hThread); // Form1.Close; { exit application } ret := CloseHandle(hReadPipe); end; end;