mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-30 10:41:15 +02:00
* Use DosExecute from Fpredir unit
This commit is contained in:
parent
8aaf0b8052
commit
5dbf5496c3
@ -652,7 +652,7 @@ begin
|
||||
Shell(ProgramPath+' '+Params);
|
||||
{$else}
|
||||
if (InFile='') and (OutFile='') then
|
||||
Dos.Exec(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params)
|
||||
DosExecute(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params)
|
||||
else
|
||||
ExecuteRedir(GetEnv('COMSPEC'),'/C '+ProgramPath+' '+Params,InFile,OutFile,'stderr');
|
||||
{$endif}
|
||||
@ -854,7 +854,10 @@ end;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.42 1999-10-27 12:10:42 pierre
|
||||
Revision 1.43 1999-11-10 17:19:06 pierre
|
||||
* Use DosExecute from Fpredir unit
|
||||
|
||||
Revision 1.42 1999/10/27 12:10:42 pierre
|
||||
+ With DebugUndo added 3 menu items
|
||||
"Dump Undo" "Undo All" and "Redo All"
|
||||
for Undo checks
|
||||
|
Loading…
Reference in New Issue
Block a user