wise怎么执行外部程序啊

Question

请问wise怎么执行外部程序啊?

Answer 1

  执行一程序并等待其结束   
    
  function   WinExecAndWait32(FileName:String;   Visibility   :integer):integer;   
  var   
  zAppName:array[0..512]   of   char;   
  zCurDir:array[0..255]   of   char;   
  WorkDir:String;   
  StartupInfo:TStartupInfo;   
  ProcessInfo:TProcessInformation;   
  begin   
  StrPCopy(zAppName,FileName);   
  GetDir(0,WorkDir);   
  StrPCopy(zCurDir,WorkDir);   
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);   
    
  StartupInfo.cb   :=   Sizeof(StartupInfo);   
  StartupInfo.dwFlags   :=   STARTF_USESHOWWINDOW;   
  StartupInfo.wShowWindow   :=   Visibility;   
    
  if   not   CreateProcess(nil,   
  zAppName,{   pointer   to   command   line   string   }   
  nil,{   pointer   to   process   security   attributes   }   
  nil,{   pointer   to   thread   security   attributes   }   
  false,{   handle   inheritance   flag   }   
  CREATE_NEW_CONSOLE   or   {   creation   flags   }   
  NORMAL_PRIORITY_CLASS,   
  nil,{   pointer   to   new   environment   block   }   
  nil,{   pointer   to   current   directory   name   }   
  StartupInfo,{   pointer   to   STARTUPINFO   }   
  ProcessInfo)   then   Result   :=   -1   {   pointer   to   PROCESS_INF   }   
  else   begin   
    
  WaitforSingleObject(ProcessInfo.hProcess,INFINITE);   
  GetExitCodeProcess(ProcessInfo.hProcess,Result);   
    
  end;   
    
  end;