[Ar4ers]

дарова всем!!!
Как воспроизвести звук при запуске проги

[:S.p.a.m.]

в событии onCreate можно попробовать или еще лучше после создания всех форм воспроизводить.

вот тебе 2 варианта воспроизведения, выбирай:
первый
Второй

[Ar4ers]

ок спс попробую

[Ar4ers]

не 4е то не то воспроизводить как нажимаем на кнопку а надо было при запуске программы

[SERЖant]

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end;

[Ar4ers]

4ерез OnCreate пробывал PlaySound('c:\1.wav', 0, 0); работает, только с перво звук идет потом только прога запускается

[Ar4ers]

Сообщение от SERЖant

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
MediaPlayer1.FileName := 'имя твоего файла';
MediaPlayer1.Open;
MediaPlayer1.Play
end;

Спасибо все норм работает

[Vayrus]

Сообщение от Ar4ers

4ерез OnCreate пробывал PlaySound('c:\1.wav', 0, 0); работает, только с перво звук идет потом только прога запускается

Надо в параметрах указать что файл должен проигрываться асинхронно, если не ошибаюсь, тогда все норм будет.

[PhoeniX]

А лучше не в форме это делать, а в главной программе (Project1.dpr), после Application.Run;. Тогда звук будет проигрываться после отрисовки форм (ы), что собственно и требуется.

[Karsh]

Сообщение от Vayrus

Надо в параметрах указать что файл должен проигрываться асинхронно, если не ошибаюсь, тогда все норм будет.

поясню как:

Код:

PlaySound('tada.wav', 0, SND_ASYNC);