Skip to content

Commit

Permalink
add ifdef windows
Browse files Browse the repository at this point in the history
  • Loading branch information
riderkick committed Jun 12, 2015
1 parent 17999d5 commit 908cafa
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions baseunits/uBaseUnit.pas
Original file line number Diff line number Diff line change
Expand Up @@ -3568,6 +3568,7 @@ function RunExternalProcessAsAdmin(Exe, Params: String; ShowWind: Boolean;
{$ENDIF}
end;

{$ifdef windows}
function WinRunProcessA(Exe, Params: string; ShowWind: Boolean; isPersistent: Boolean): Boolean;
var
SEInfo: TSHELLEXECUTEINFOA;
Expand Down Expand Up @@ -3615,6 +3616,7 @@ function WinRunProcessW(Exe, Params: string; ShowWind: Boolean; isPersistent: Bo
if isPersistent then
WaitForSingleObject(SEInfo.hProcess, INFINITE);
end;
{$endif}

function RunExternalProcess(Exe: String; Params: array of string;
ShowWind: Boolean; isPersistent: Boolean): Boolean;
Expand Down

0 comments on commit 908cafa

Please sign in to comment.