| VipCat | Дата: Суббота, 21.01.2012, 12:55 | Сообщение # 1 |
PHP-MasteR
Сообщений: 102
Сейчас нет на сайте
| Ув.Форумчане я начинающий программист на delphi. У меня возникла проблема.
Мне нужна такая система: Нажимаешь на кнопку играет определенный звук. ( Извините за столь глупый вопрос )
Ну я перерыл все почти что мог, и решил обратится к вам кто поможет + дам 
Проблемы индейцев - вождя не волнуют....
|
| |
| |
| Kamskii | Дата: Суббота, 21.01.2012, 12:58 | Сообщение # 2 |
Game ≠ Toy
Сообщений: 839
Сейчас нет на сайте
| VipCat,
Code
procedure TForm1.Button1Click(Sender : TObject);
begin
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'sound.wav'),
0,SND_FILENAME OR SND_NOSTOP OR SND_ASYNC);
end;
Будет проигрываться файл sound.wav, который лежит в одной папке с экзешником. Если нужен другой путь, поправишь. Не забудь MMSystem в uses добавить.
|
| |
| |
| VipCat | Дата: Суббота, 21.01.2012, 13:02 | Сообщение # 3 |
|
PHP-MasteR
Сообщений: 102
Сейчас нет на сайте
| Kamskii Спасибо Братишь. + тебе 
CLOSE
Проблемы индейцев - вождя не волнуют....
|
| |
| |
