Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 6 221

Раздел: Delphi » Мультимедийные приложения
/ вопрос закрыт /

Приветствую, уважаемые эксперты!
Здравствуйте, эксперты!
скажите как сделать так, чтобы при нажатии на кнопку возпроизводился нужный мне звук, я нашел информацию про функцию function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal) :boolean
но не могли бы вы пошагам обьянить что делать?

Приложение:
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, jpeg, ExtCtrls, StdCtrls, mmsystem;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. Image1: TImage;
  12. Label1: TLabel;
  13. Label2: TLabel;
  14. Image2: TImage;
  15. Label3: TLabel;
  16. Button1: TButton;
  17. Button2: TButton;
  18. procedure Label2Click(Sender: TObject);
  19. procedure Label1Click(Sender: TObject);
  20. procedure Label1MouseEnter(Sender: TObject);
  21. private
  22. function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;
  23. { Private declarations }
  24. public
  25. { Public declarations }
  26. end;
  27.  
  28. var
  29. Form1: TForm1;
  30.  
  31. implementation
  32.  
  33. {$R *.dfm}
  34.  
  35. procedure TForm1.Label2Click(Sender: TObject);
  36. begin
  37. close;
  38. end;
  39.  
  40. procedure TForm1.Label1Click(Sender: TObject);
  41. begin
  42. button1.Visible:=true;
  43. label1.Visible:=true;
  44. button2.Visible:=true;
  45. image1.Visible:=false;
  46. image2.Visible:=true;
  47. label3.Visible:=true;
  48. end;
  49.  
  50. function TForm1.PlaySound(pszSound: PChar; hmod: HINST;
  51. fdwSound: Cardinal): boolean;
  52. begin
  53.  
  54. end;
  55.  
  56. procedure TForm1.Label1MouseEnter(Sender: TObject);
  57. begin
  58. playsound('C:\Users\Public\Music\Sample Music',0,SND_ASYNC or SND_LOOP);
  59. end;
  60.  
  61. end.


Татаринцев Юрий Сергеевич Вопрос закрыт (ответы не принимаются, мини-форум закрыт)

Вопрос задал: Татаринцев Юрий Сергеевич (статус: Посетитель)
Вопрос отправлен: 4 июля 2012, 12:59
Состояние вопроса: закрыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 4 июля 2012, 13:17; участников в обсуждении: 1.
DNK

DNK (статус: Студент), 4 июля 2012, 13:17 [#1]:

Может помогут предыдущие вопросы 920, 3042, 3405, 3669, 4383, 5124, 5545.
"Digital Networked Knight"

8 июля 2012, 10:09: Вопрос перемещён из тематического раздела Delphi » Взаимодействие с Windows в раздел Delphi » Мультимедийные приложения модератором Ерёмин А.А.

26 сентября 2012, 15:32: Вопрос закрыт (решение принял DNK): Похоже какой-то засланный казачек был.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:59
Выполнено за 0.03 сек.