Ludo Brands schrieb:

Cross platform solution:

Uses process

...
  p:=TProcess.Create(nil);
{$IFDEF WIN32}
  p.CommandLine := 'cmd /c diff -r dir1 dir2 > diff.txt';
{$ENDIF}
{$IFDEF LINUX}
  p.CommandLine := 'bash -c "diff -r dir1 dir2 > diff.txt"';
{$ENDIF}
  p.Execute;

Looks like this could be added to the wiki, as another solution. Unfortunately it won't work on other platforms (Mac...).

DoDi

_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel

Reply via email to