Сообщение от Winner
Вот моя прога:
begin
openPlayer ('/Simply.wav','audio/x-wav');
startPlayer;
if not openPlayer('/Simply.wav', 'audio/x-wav') then halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;
delay(5000);
end.
|
Надо вызывать так:
var workbool: boolean;
.......
workbool:=OpenPlayer(.....);