哪位大虾用过CREATEPROCESS，请可小弟指点一下，必定给分。

[xuxia]

procedure TForm1.Button1Click(Sender: TObject);
var stinfo:STARTUPINFO;
var stucinfo:PROCESS_INFORMATION ;
begin
stinfo.cb:=sizeof(stinfo);
CreateProcess(nil,'D:\CCINstall\callissue\setup.exe',0,0,True,NORMAL_PRIORITY_CLASS,0,0,stinfo,stucinfo);
Waitforsingleobject(stucinfo.hProcess,INFINITE);
CloseHandle(stucinfo.hProcess);
end;

[Crob]

下面程序会调用相应程序，并一直等该程序执行完后再继续下去
参数：FileName应用程序路径和名称
Visibility应用程序显示属性

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 securityattributes }
nil, { pointer to thread securityattributes }
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;

[xuxia]

谢谢你。
不过想问您一下，我的代码错在哪里呢？VB中可以这样调用的。而且成功了。

[cszhz]

学习
^_^

[Crob]

VB我不熟，可能是一些系统常量定义不一样吧

[Crob]

CreateProcess(nil,'D:\CCINstall\callissue\setup.exe',0,0,True,NORMAL_PRIORITY_CLASS,0,0,stinfo,stucinfo);

应该把程序路径放在第一个参数

CreateProcess('D:\CCINstall\callissue\setup.exe',nil,0,0,True,NORMAL_PRIORITY_CLASS,0,0,stinfo,stucinfo);

[xuxia]

to:Crob
我加了下面一句就成功了。为什么？字符串常量一定要变成CHAR数组吗？还是因为要加一个空终止符号，DELPHI中怎么在字符串常量后面加空终止符号。
StrPCopy(zAppName,'d:\ccinstall\callissue\setup.exe');