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

* Do not use COMSPEC to Run files with .EXE suffix

Browse Source 
because Command.com at least does not return the errorcode
    of the program called
This commit is contained in:
pierre 2000-03-06 11:31:30 +00:00
parent 16d2efa8ce
commit d54b187bde
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/text/fpide.pas
View File

@ -668,7 +668,16 @@ begin
{$ifdef linux} {$ifdef linux}
Shell(ProgramPath+' '+Params); Shell(ProgramPath+' '+Params);
{$else} {$else}
if (InFile='') and (OutFile='') then { DO NOT use COMSPEC for exe files as the
ExitCode is lost in those cases PM }
if Pos('.EXE',UpCaseStr(ProgramPath))=Length(ProgramPath)-3 then
begin
if (InFile='') and (OutFile='') then
DosExecute(ProgramPath,Params)
else
ExecuteRedir(ProgramPath,Params,InFile,OutFile,'stderr');
end
else if (InFile='') and (OutFile='') then
DosExecute(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params) DosExecute(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params)
else else
ExecuteRedir(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params,InFile,OutFile,'stderr'); ExecuteRedir(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params,InFile,OutFile,'stderr');
@ -877,7 +886,12 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.52 2000-02-07 12:02:32 pierre Revision 1.53 2000-03-06 11:31:30 pierre
* Do not use COMSPEC to Run files with .EXE suffix
because Command.com at least does not return the errorcode
of the program called
Revision 1.52 2000/02/07 12:02:32 pierre
Gabor's changes Gabor's changes
Revision 1.51 2000/01/23 21:25:17 florian Revision 1.51 2000/01/23 21:25:17 florian
@ -1149,4 +1163,4 @@ END.
+ options are now written/read + options are now written/read
+ find and replace routines + find and replace routines
} }