Цитата:
Сообщение от NumLock
Команды Open и Play посылай в одном потоке.
|
Да вроде как в одном, специально перенес Asound
Код:
type
TWait = class(TThread)
private
....
Asound: TMCIPlayer;
....
constructor TWait.Create(doLog:Boolean=False );
begin
inherited Create;
....
Asound:= TMCIPlayer.Create('d:\Alert.mp3')
end;
procedure TWait.OnHiLite(RepeatAgain, HiLite: boolean);
begin
if RepeatAgain then
.....
if HiLite then
begin
// Synchronize(Alert);
Asound.Play
end;
end;