paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 18:49:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* have showwindow parameter in runcommand

Browse Source 
git-svn-id: trunk@43208 -
This commit is contained in:
marco 2019-10-16 15:17:39 +00:00
parent 0d4c008b46
commit fbab36ef0b
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
packages/fcl-process/src/processbody.inc
View File

@ -177,9 +177,9 @@ Var
Function DetectXTerm : String; Function DetectXTerm : String;
{$endif unix} {$endif unix}
function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; out exitstatus:integer; Options : TProcessOptions = []):integer; function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; out exitstatus:integer; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone):integer;
function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = []):boolean; function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone):boolean;
function RunCommand(const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = []):boolean; function RunCommand(const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone):boolean;
function RunCommandInDir(const curdir,cmdline:TProcessString;out outputstring:string):boolean; deprecated; function RunCommandInDir(const curdir,cmdline:TProcessString;out outputstring:string):boolean; deprecated;
function RunCommand(const cmdline:TProcessString;out outputstring:string):boolean; deprecated; function RunCommand(const cmdline:TProcessString;out outputstring:string):boolean; deprecated;
@ -593,7 +593,7 @@ end;
Const Const
ForbiddenOptions = [poRunSuspended,poWaitOnExit]; ForbiddenOptions = [poRunSuspended,poWaitOnExit];
function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string;out exitstatus:integer; Options : TProcessOptions = []):integer; function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string;out exitstatus:integer; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone):integer;
Var Var
p : TProcessnamemacro; p : TProcessnamemacro;
i : integer; i : integer;
@ -602,6 +602,7 @@ begin
p:=DefaultTProcess.create(nil); p:=DefaultTProcess.create(nil);
if Options<>[] then if Options<>[] then
P.Options:=Options - ForbiddenOptions; P.Options:=Options - ForbiddenOptions;
P.ShowWindow:=SwOptions;
p.Executable:=exename; p.Executable:=exename;
if curdir<>'' then if curdir<>'' then
p.CurrentDirectory:=curdir; p.CurrentDirectory:=curdir;
@ -633,7 +634,7 @@ begin
if exitstatus<>0 then result:=false; if exitstatus<>0 then result:=false;
end; end;
function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = []):boolean; function RunCommandIndir(const curdir:TProcessString;const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone):boolean;
Var Var
p : TProcessnamemacro; p : TProcessnamemacro;
i, i,
@ -643,6 +644,7 @@ begin
p:=DefaultTProcess.create(nil); p:=DefaultTProcess.create(nil);
if Options<>[] then if Options<>[] then
P.Options:=Options - ForbiddenOptions; P.Options:=Options - ForbiddenOptions;
P.ShowWindow:=SwOptions;
p.Executable:=exename; p.Executable:=exename;
if curdir<>'' then if curdir<>'' then
p.CurrentDirectory:=curdir; p.CurrentDirectory:=curdir;
@ -673,7 +675,7 @@ begin
if exitstatus<>0 then result:=false; if exitstatus<>0 then result:=false;
end; end;
function RunCommand(const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = []):boolean; function RunCommand(const exename:TProcessString;const commands:array of TProcessString;out outputstring:string; Options : TProcessOptions = [];SWOptions:TShowWindowOptions=swoNone):boolean;
Var Var
p : TProcessnamemacro; p : TProcessnamemacro;
i, i,
@ -683,6 +685,7 @@ begin
p:=DefaultTProcess.create(nil); p:=DefaultTProcess.create(nil);
if Options<>[] then if Options<>[] then
P.Options:=Options - ForbiddenOptions; P.Options:=Options - ForbiddenOptions;
P.ShowWindow:=SwOptions;
p.Executable:=exename; p.Executable:=exename;
if high(commands)>=0 then if high(commands)>=0 then
for i:=low(commands) to high(commands) do for i:=low(commands) to high(commands) do