[izunad]

Кому не трудно составьте прогу чтоб при нажатии на форму воиспроизводился уже зарезервированный файл музыки wav чтоб файл стоял в той же папке что и программа. Буду благодарен.Ато составил мини игру в футбол 2d версию а вот звуки че то недопираю как вставить темы просмотрел но все равно ни че не вышло. Может я безнадежно тупой?)))

[lmikle]

Код:

procedure TForm1.Button1Click(Sender : TObject);
begin
  PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'mywav.wav'),
                          0,SND_FILENAME OR SND_NOSTOP OR SND_ASYNC);
end;

[izunad]

Проверяю

[izunad]

Матерится гадина(

[Error] Unit1.pas(28): Undeclared identifier: 'PlaySound'
[Error] Unit1.pas(28): Undeclared identifier: 'SND_FILENAME'
[Error] Unit1.pas(28): Undeclared identifier: 'SND_NOSTOP'
[Warning] Unit1.pas(28): Combining signed and unsigned types - widened both operands
[Error] Unit1.pas(28): Statement expected but ')' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Наверняка что то пропущено. Вы уж извините, я пока в этом полный нуб, мне надо лбом тыкать "Жми сюда, пиши это".

[izunad]

скинте кто нить исходник

[lmikle]

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

скинте кто нить исходник

значит какого-то модуля не хватает.
MMSystem подкючи.

[Ultras]

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

Наверняка что то пропущено. Вы уж извините, я пока в этом полный нуб, мне надо лбом тыкать "Жми сюда, пиши это".

подключите юнит MMSystem, вверху, где uses написано в коде, типа вот так:

Код:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MMSystem;

[izunad]

Спасибо Вам огромное!!!
получилось!!! УРРААА!!!

[izunad]

А как сделать чтоб звук был цикличным и самое главное фоновым(т.е. чтобы не мешал другим звукам воспроизводится????

[Ultras]

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

А как сделать чтоб звук был цикличным и самое главное фоновым(т.е. чтобы не мешал другим звукам воспроизводится????

воспроизводить его в отдельно потоке, или использовать Application.ProcessMessages;