上次调用外部程序碰到的问题，望朋友能给点帮助！ ( 积分: 50 )

调过一般的程序都没有问题。调用个别程序的时候就出现死机现象。源代码如下：
function ExecProcess(FileName:String;
Var hProcess,ProcessID:THandle):Boolean;
var
sInfo:TStartUpInfo;
pInfo:TProcessInformation;
begin
Result:=False;
FillChar(sInfo,sizeof(sInfo),#0);
with sInfodo
begin
cb:=sizeof(sInfo);
dwFlags:=STARTF_USESHOWWINDOW;
lptitle:=nil;
wShowWindow:=SW_SHOW;
end;
if CreateProcess(PChar(FileName),
nil,nil,nil,true,NORMAL_PRIORITY_CLASS,nil,nil,sInfo,pInfo) then
begin
hProcess:=pInfo.hProcess;
ProcessID:=pInfo.dwProcessId;
Result:=true;
end;
end;

procedure AddProcess(FileName:String;
hProcess,ProcessID:THandle);
Var
InfoProcessInfo;
begin
New(Info);
Info.hProcess:=hProcess;
Info.ProcessID:=ProcessID;
Info.Name:=ExtractFileName(FileName);
Info.Path:=ExtractFilePath(FileName);
List.Add(Info);
end;

//调用的过程（1） //大部分程序调用没有问题，但各别程序调用出现死锁现象（个别矢程序EXE本身是好的。）
if label8.Caption = 'xxxxx' then
begin
if Not ExecProcess('G:/user/xxxxx.exe',hProcess,ProcessID) then
Exit;
AddProcess('G:/user/xxxxx.exe',hProcess,ProcessID);
end;
//调用的过程（2） //所有的调用都没有问题，包括那个别程序调用的时候。
begin
if Not OpenDialog1.Execute then
Exit;
if Not ExecProcess(OpenDialog1.FileName,hProcess,ProcessID) then
Exit;
AddProcess(OpenDialog1.FileName,hProcess,ProcessID);

Memo1.Lines.Add(OpenDialog1.FileName);

调过一般的程序都没有问题。调用个别程序的时候就出现死机现象。源代码如下：
function ExecProcess(FileName:String;
Var hProcess,ProcessID:THandle):Boolean;
var
sInfo:TStartUpInfo;
pInfo:TProcessInformation;
begin
Result:=False;
FillChar(sInfo,sizeof(sInfo),#0);
with sInfodo
begin
cb:=sizeof(sInfo);
dwFlags:=STARTF_USESHOWWINDOW;
lptitle:=nil;
wShowWindow:=SW_SHOW;
end;
if CreateProcess(PChar(FileName),
nil,nil,nil,true,NORMAL_PRIORITY_CLASS,nil,nil,sInfo,pInfo) then
begin
hProcess:=pInfo.hProcess;
ProcessID:=pInfo.dwProcessId;
Result:=true;
end;
end;

procedure AddProcess(FileName:String;
hProcess,ProcessID:THandle);
Var
InfoProcessInfo;
begin
New(Info);
Info.hProcess:=hProcess;
Info.ProcessID:=ProcessID;
Info.Name:=ExtractFileName(FileName);
Info.Path:=ExtractFilePath(FileName);
List.Add(Info);
end;

//调用的过程（1） //大部分程序调用没有问题，但各别程序调用出现死锁现象（个别矢程序EXE本身是好的。）
if label8.Caption = 'xxxxx' then
begin
if Not ExecProcess('G:/user/xxxxx.exe',hProcess,ProcessID) then
Exit;
AddProcess('G:/user/xxxxx.exe',hProcess,ProcessID);
end;
//调用的过程（2） //所有的调用都没有问题，包括那个别程序调用的时候。
begin
if Not OpenDialog1.Execute then
Exit;
if Not ExecProcess(OpenDialog1.FileName,hProcess,ProcessID) then
Exit;
AddProcess(OpenDialog1.FileName,hProcess,ProcessID);

Memo1.Lines.Add(OpenDialog1.FileName);

怎么没人回答呀！

高手出来呀！

高手呢？！！！！
救我呀！

这几天大富翁怎么了？老登不上，今天终于好了，怎么还没人帮助我呀！我原意把分都给他了。