paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Corrected some bugs if no pousepipes

Browse Source
This commit is contained in:
michael 2000-02-17 12:31:47 +00:00
parent aafacbb44b
commit f95b81f7ee
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
fcl/win32/process.inc
View File

@ -15,7 +15,8 @@ Var PName,PDir : PChar;
FProcessAttributes,
FTHreadAttributes : TSecurityAttributes;
FProcessInformation : TProcessInformation;
status : longbool;
begin
FillChar(FProcessAttributes,SizeOf(FProcessAttributes),#0);
FillChar(FThreadAttributes,SizeOf(FThreadAttributes),#0);
@ -39,10 +40,13 @@ begin
end;
With FStartupInfo do
begin
dwFlags:=FStartupInfo.dwFlags or Startf_UseStdHandles;
hStdInput:=FChildInputStream.Handle;
hStdOutput:=FChildOutPutStream.Handle;
hStdError:=FChildErrorStream.Handle;
if poUsePipes in FCreateOptions then
begin
dwFlags:=dwFlags or Startf_UseStdHandles;
hStdInput:=FChildInputStream.Handle;
hStdOutput:=FChildOutPutStream.Handle;
hStdError:=FChildErrorStream.Handle;
end;
If (FFillAttribute<>-1) then
begin
dwFlags:=dwFlags or Startf_UseFillAttribute;
@ -84,14 +88,19 @@ begin
dwy:=FWindowTop;
end;
end;
Writeln ('About to start');
If FApplicationName<>'' then PName:=Pchar(FApplicationName) else PName:=Nil;
If FCurrentDirectory<>'' then PName:=Pchar(FCurrentDirectory) else PDir:=Nil;
CreateProcess (Pname,PChar(FCommandLine),@FProcessAttributes,@FThreadAttributes,
Status:=CreateProcess (Pname,PChar(FCommandLine),@FProcessAttributes,@FThreadAttributes,
FInheritHandles,FCreationFlags,FEnvironment,PDir,@FStartupInfo,
@fProcessInformation);
Writeln ('Created ',Status);
FTHreadHandle:=fProcessInformation.hthread;
Writeln ('ThreadHandle :',FThreadHandle);
FHandle:=fProcessInformation.hProcess;
Writeln ('Process Handle :',FHandle);
FPID:=fProcessInformation.dwProcessID;
Writeln ('Process Handle :',FPID);
FRunning:=True;
if (poWaitOnExit in FCreateOptions) and
not (poRunSuspended in FCreateOptions) then