[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

• ·oracle8i学习笔记(1)
• ·Check if a File is in I
• ·哪些减肥药不能吃 减肥_美丽顾问
• · 根据给定的对象和路径,获得其子孙成员
• ·delete this,dll导出类及如何写p
• ·黑面包减肥功效 减肥_美丽顾问
• ·博文视点金秋新书大放送（2）安全技术大系 &a
• ·真正的郁闷才刚刚开始
• ·ADO.NET 系列 quiz 2 关于分布
• ·关于程序只运行一次的问题