lazarus怎样启动另一个程序

泓泓

使用ShellExecute总提示没有这个函数，WinExec也是这样，具体怎样添加呢？

tim

uses ..., ShellApi;

dorry

function WinExecAndWait32(FileName: string;isWairing:boolean=false): integer;
var
  zAppName: array[0..512] of Widechar; //存放应用程序名
begin
  StrPCopy(zAppName, FileName);
  //调用CreateProcess 创建进程，执行指定的可执行文件
  CreateProcess(zAppName, nil, nil, nil, false, 0 , nil, nil, nil, nil)
  //and isWairing then
  //  Result := -1
  //else  begin
  //  //等待可执行文件退出
  //  WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
  //  //得到进程终止状态码
  //  GetExitCodeProcess (ProcessInfo.hProcess, exitCode);
  //  result := exitCode;
  //end;
end;

测试成功的！