paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 12:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed TProcess flags for windows

Browse Source 
git-svn-id: trunk@45304 -
This commit is contained in:
mattias 2014-06-02 14:32:06 +00:00
parent 8db63f148a
commit 37a1e9a9c3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/exttools.pas
View File

@ -567,8 +567,10 @@ begin
inherited Create(aOwner); inherited Create(aOwner);
FWorkerOutput:=TStringList.Create; FWorkerOutput:=TStringList.Create;
FProcess:=TProcessUTF8.Create(nil); FProcess:=TProcessUTF8.Create(nil);
{$IF FPC_FULLVERSION<20604}
FProcess.InheritHandles:=false; FProcess.InheritHandles:=false;
FProcess.Options:= [poUsePipes]; {$ENDIF}
FProcess.Options:= [poUsePipes{$IFDEF Windows},poStderrToOutPut{$ENDIF}];
FProcess.ShowWindow := swoHide; FProcess.ShowWindow := swoHide;
fExecuteBefore:=TFPList.Create; fExecuteBefore:=TFPList.Create;
fExecuteAfter:=TFPList.Create; fExecuteAfter:=TFPList.Create;
@ -1102,6 +1104,9 @@ begin
end; end;
// run and detach // run and detach
{$IF FPC_FULLVERSION<20604}
Proc.InheritHandles:=false;
{$ENDIF}
Proc.Options:=Proc.Options+[poNoConsole]; Proc.Options:=Proc.Options+[poNoConsole];
try try
Proc.Execute; Proc.Execute;