12.04.2009, 18:12
|
|
Начинающий
|
|
Регистрация: 22.03.2008
Адрес: г.Елец , Липецкой области , Россия
Сообщения: 104
Репутация: 7
|
|
Код:
procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end; |