доброе время суток вопрос: каким образом остановить PlaySound из потока? [Code] type TSoundThread = class(TThread) private procedure OnStopPlay; protected procedure Execute; override; end; const BC_PLAY: array [0..1] of String = ( 'пуск', 'стоп' ); var SoundThread: TSoundThread; procedure TSoundThread.Execute; begin PlaySound('warning_sound', HInstance, SND_SYNC or SND_RESOURCE); Synchronize(OnStopPlay); end; procedure TSoundThrea ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83069