You've already forked lazarus-ccr
6f8c048343
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1748 8e941d3f-bd1b-0410-a28a-d453659cc2b4
28 lines
479 B
ObjectPascal
Executable File
28 lines
479 B
ObjectPascal
Executable File
{
|
|
helper application to start cactus jukebox in simple player mode
|
|
|
|
written by Sebastian Kraft, <c> 2006
|
|
|
|
Contact the author at: sebastian_kraft@gmx.de
|
|
|
|
This Software is published under the GPL
|
|
|
|
|
|
|
|
}
|
|
|
|
program cactus;
|
|
uses sysutils, dos;
|
|
|
|
var tmps: string;
|
|
i: byte;
|
|
|
|
begin
|
|
setCurrentDir(ExtractFilePath(Paramstr(0)));
|
|
|
|
//tmps:=' -p';
|
|
for i:= 1 to ParamCount do tmps:=tmps+' '+ParamStr(i);
|
|
writeln('starting cactus in player mode...');
|
|
exec('cactus_jukebox',tmps);
|
|
end.
|