Показать сообщение отдельно
  #3  
Старый 21.09.2008, 18:38
lohack lohack вне форума
Прохожий
 
Регистрация: 30.08.2008
Сообщения: 39
Репутация: 10
По умолчанию

Добавь Mediaplayer и добавь процедуру :
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Mediaplayer1.FileName := ('D:\test.mp3');
Mediaplayer1.open;
Mediaplayer1.play;
end;
Admin: Пользуемся тегами!
__________________
CODDING - штука тонкая !!!
Ответить с цитированием