fpc/tests/webtbs/tw19851b.pp
florian d7708a45f1 * so far windows only
git-svn-id: trunk@18248 -
2011-08-17 13:01:32 +00:00

9 lines
165 B
ObjectPascal

uses
sysutils;
begin
{$ifdef WINDOWS}
executeprocess(GetEnvironmentVariable('COMSPEC'),'/c echo abcdefghijklmnopqrstuvwxyz1 | tw19851a');
{$endif WINDOWS}
end.