如何在Delphi中调用一个外部程序

[weson]

各位高手，请问如何在Delphi中调用一个外部可执行程序。例如要调用Windows的写字板什么的？先谢谢了！

[radish]

这问题旧贴应该有，我的HOMEPAGE（RADSWORLD.YEAH.NET)上有BCB的源码

[渤海海峡]

给函数一个：
function ExecuteFile(const FileName, Params, DefaultDir: string;
ShowCmd: Integer): THandle;
var
zFileName, zParams, zDir: array[0..79] of Char;
begin
Result := ShellExecute(Application.MainForm.Handle, nil,
StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
StrPCopy(zDir, DefaultDir), ShowCmd);
end;

运行举例：1
exepath:= ExtractFilePath(application.ExeName);
ExecuteFile('Calc.exe','',exepath,SW_Show);
运行举例：2
if LMDSysInfo1.Platform='Windows 95' then
ExecuteFile(lmdsysinfo1.WinPath+'\control.exe','timedate.cpl',lmdsysinfo1.WinPath,SW_Show) else
ExecuteFile(lmdsysinfo1.WinsysPath+'\control.exe','timedate.cpl',lmdsysinfo1.WinPath,SW_Show);

[SimonDW]

shellexecute
及其相关（帮助文件中找）

[SimonDW]

if FileExists(str) then
ShellExecute(Handle, 'open',pchar(str),'',
pchar(extractfiledir(str)),SW_SHOW)

[weson]

shellexecute在哪里定义的呢？

[yijun2000]

在delphi所带的例子程序中有一个文件管理其程序,里面有你要的执行外部程序的函数和调用方法,还有很多别的好东西.

[jll]

或者试试WinExec API函数

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

[weson]

谢谢各位，我已经解决问题了！