[Tips]挂起 - 运行外部程式，外部程式退出 - 继续执行

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;
  lpExitCode : Cardinal;
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, lpExitCode);
    Result := lpExitCode;
  end;
end;

整理：lzcx

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18