mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 08:06:07 +02:00
* so far windows only
git-svn-id: trunk@18248 -
This commit is contained in:
parent
a9034af414
commit
d7708a45f1
@ -2,5 +2,7 @@ uses
|
||||
sysutils;
|
||||
|
||||
begin
|
||||
executeprocess('cmd.exe','/c echo abcdefghijklmnopqrstuvwxyz1 | tw19851a');
|
||||
{$ifdef WINDOWS}
|
||||
executeprocess(GetEnvironmentVariable('COMSPEC'),'/c echo abcdefghijklmnopqrstuvwxyz1 | tw19851a');
|
||||
{$endif WINDOWS}
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user