Dusan Halicky schreef:
Following code works in linux, but not in windows. In windows program
freeze, or I don't see mplayer. Thanks.
program bug;
{$mode objfpc}{$H+}
uses
Classes, SysUtils, Process;
begin
with TProcess.Create(nil) do
try
//Options := []; // this work on both Windows and Linux
Options := [poUsePipes]; // this doesn't work in Windows but works in Linux
CommandLine := 'mplayer -slave -quiet final.avi';
Execute;
writeln('press enter to exit');
readln;
finally
Free;
end;
end.
Maybe you need to add poNoConsole?
Vincent
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal