Озвучка кнопок.

FORUMS

MEMBERS

RECENT POSTS

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Озвучка кнопок.

Страница 1 из 2

Опции темы

Поиск в этой теме

Опции просмотра

Озвучка кнопок.

03.04.2006, 22:27

Volk

Новичок

Регистрация: 25.02.2006

Сообщений: 5

С нами: 10634266

Репутация: 1

Озвучка кнопок.

Здравствуйте. подскажите как мне сделать так, чтоб при нажатии кнопки (SpeedBution1)проигрывался звук в формате wav (C:\S1.wav)??? И как куданибуть его поместить чтоб не таскать постоянно вместе с прогой???
---------------------------------------------
Заранее благодарен!!!
[Delphi 7, Win XP(SP2)]

𝕏 Twitter Reddit Telegram Копировать ссылку

03.04.2006, 22:36

Volk

Новичок

Регистрация: 25.02.2006

Сообщений: 5

С нами: 10634266

Репутация: 1

Цитата:

Playsound()

Такого вообше нет!!!!

03.04.2006, 22:39

Allen

Постоянный

Регистрация: 24.10.2005

Сообщений: 367

С нами: 10813953

Репутация: 26

Volk
В справке есть инфа.

Цитата:

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

А ты сам озвучивай , типа нажал и КРИЧИ "ААААА Я НАЖАЛ!!! ОЙ ой ой Я нажал!! КАРАУЛ!! Она жметься!1 уй уй уй фу фу згинь!! ой ой во во во ой"

Прикольно.

03.04.2006, 22:41

Utochka

Постоянный

Регистрация: 21.12.2005

Сообщений: 620

С нами: 10729766

Репутация: 268

Автор подключи модуль mmsystem или mmsound точно непомню.

03.04.2006, 22:49

Volk

Новичок

Регистрация: 25.02.2006

Сообщений: 5

С нами: 10634266

Репутация: 1

Ну да. Теперь появилась. Я пишу procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('C:\s1.wav');
end;
а он мне отвечает: Not enough actual parameters. Как там надо? Подскажите пожалуйсто кодом. Я вообше это ни разу не делал.
--------------------------------------------------------------------------
Заранее благодарен!!!

03.04.2006, 23:22

Микрон Семенович

Познающий

Регистрация: 01.04.2006

Сообщений: 32

С нами: 10585049

Репутация: 31

WinAPI PlaySound()
см. http://msdn.microsoft.com

09.04.2006, 17:02

EvL

Новичок

Регистрация: 24.03.2006

Сообщений: 16

С нами: 10596536

Репутация: 0

Элементари:

uses
mmsystem;

// Проиграть
sndPlaySound('C:\s.WAV', SND_ASYNC);

// Проигрывать всё время
sndPlaySound('C:\s.WAV', SND_ASYNC + SND_LOOP);

//Остановить
sndPlaySound(nil, SND_ASYNC);

09.04.2006, 17:07

EST a1ien

Участник форума

Регистрация: 02.04.2006

Сообщений: 273

С нами: 10582516

Репутация: 114

Цитата:

function PlaySound(pszSound: PChar; hmod: HINST;
fdwSound:Cardinal): Boolean; stdcall; external 'winmm.dll';

Цитата:

procedure TForm1.SpeedBution1Click(Sender: TObject);
begin
PlaySound('Min.wav',0,1);
end;

я так делал

09.04.2006, 17:18

Volk

Новичок

Регистрация: 25.02.2006

Сообщений: 5

С нами: 10634266

Репутация: 1

Понятно. А как мне этот wav файл куданибудь прикрепить, чтоб не таскать вместе с прогой? И как потом его проигрывать, если он будит прикреплён?
-------------------------------------------------------------
Заранее спасибо!!!