Как добавить звук на форму или проект

@Sasha · Регистрация: 05.06.2008

Студворк — интернет-сервис помощи студентам

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

Заранее благодарен!!!!!

@mikityak · 05.06.2008, 17:46

ищи как пользоватса "bass.dll" а вообщето кряки ето "MASM32" он
не использует "bass.dll" а..

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
mfmPlay     PROTO :DWORD
;procka bazujaca na libie minifmod v1.60 sluzacym do odgrywania XM'ow
;player dziala pod 9x/me/nt/w2k/xp :))))))))
;NIE KORZYSTA Z MSVCRT.DLL :)))
;
;UZYCIE:    invoke mfmPlay,dword
;
;wejscie:   jesli dword jest offsetem do struktury z danymi xma
;                  to init&play module,
;       jesli dword = 0 to stop&unload module
;
;   modka najlepiej podlaczyc w sekcji .data np. tak:
;
;   muzax       dd offset muzax_end - offset muzax - 4
;   include     music.inc   ;dane modka w postaci db xx,xx,xx...
;   muzax_end   equ $
;
;wyjscie:   eax = 0 jesli blad
 
mfmGetPos   PROTO
;procka zwraca w eax numer odgrywanego paternu a w edx pozycje w paternie
 
mfmPause    PROTO
;procka wstrzymuje lub wznawia odgrywanie modka czyli zwykla pauza :)
;wyjscie:   eax = 1 - pause on
;       eax = 0 - pause off
 
; Author : Canterwood <charloweb@hotmail.com>
; Website: [url]http://kickme.to/canterwood[/url]
; IDE    : MASM32

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#include "stdafx.h"
#include <stdio.h>
#include "bass.h"
 
DWORD floatable;
DWORD chan;
 
/* display error messages */
void Error(const char *es)
{
    char mes[200];
    sprintf(mes,"%s\n(error code: %d)",es,BASS_ErrorGetCode());
    MessageBox(NULL,mes,0,0);
}
 
int APIENTRY PlayBass(LPSTR lpFile)
{
    BASS_CHANNELINFO info;
 
    if (HIWORD(BASS_GetVersion())!=BASSVERSION) 
    {
        MessageBox(NULL,"An incorrect version of BASS.DLL was loaded", 0, MB_ICONERROR);
        return TRUE;
    }
 
    // enable floating-point DSP
    BASS_SetConfig(BASS_CONFIG_FLOATDSP,TRUE);
    
    // initialize - default device
    if (!BASS_Init(-1,44100,0, NULL, NULL)) 
    {
        Error("Can't initialize device");
        BASS_Free();
        return TRUE;
    }
    
    floatable = BASS_StreamCreate(44100,2,BASS_SAMPLE_FLOAT,NULL,0);
    
    if (floatable) 
    { // woohoo!
        BASS_StreamFree(floatable);
        floatable = BASS_SAMPLE_FLOAT;
    }
 
    BASS_MusicFree(chan);
    BASS_StreamFree(chan);
    
    if (!(chan=BASS_StreamCreateFile(FALSE,lpFile,0,0,BASS_SAMPLE_LOOP|floatable))
        && !(chan=BASS_MusicLoad(FALSE,lpFile,0,0,BASS_MUSIC_LOOP|BASS_MUSIC_RAMPS|floatable,0))) 
    {
        Error("Can't play the file");
        return TRUE;
    }
    
    BASS_ChannelGetInfo(chan,&info);
 
    if (info.chans!=2) 
    { // only stereo is allowed
        BASS_MusicFree(chan);
        BASS_StreamFree(chan);
        Error("only stereo sources are supported");
        return TRUE;
    }
 
    BASS_ChannelPlay(chan,FALSE);
 
    return FALSE;
}

@Jafa · 05.06.2008, 20:45

воспользуйся функцией bool PlaySound(char* path,HINST resurs,int flag);

@mikityak · 05.06.2008, 21:27

правельно но ето только для *.wav файла и ставить хорошо только на кнопку
я имел ввиду што звук должен быть маленький..

Assembler
1
invoke PlaySound,hResWavDat,NULL,SND_ASYNC or SND_MEMORY or SND_LOOP

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

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
.486
.model flat,stdcall
option casemap :none
;/////////////////////////////////////////////////////////////////////////////
include PlaySound.inc
;/////////////////////////////////////////////////////////////////////////////
DlgProc Proto :DWORD,:DWORD,:DWORD,:DWORD
;/////////////////////////////////////////////////////////////////////////////
.code
_start:
;/////////////////////////////////////////////////////////////////////////////
    mov hInstance,  FUNC(GetModuleHandle,NULL)
    mov hResWav,    FUNC(FindResource,hInstance,102,SADD("WAVE"))
    mov hResWavDat, FUNC(LoadResource,hInstance,hResWav)
 
    invoke DialogBoxParam,hInstance,IDD_DIALOG1,NULL,addr DlgProc,NULL
    invoke ExitProcess,NULL
;/////////////////////////////////////////////////////////////////////////////
DlgProc Proc hDlgMain:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
 
    ;************************
    .if uMsg == WM_INITDIALOG
    ;************************
        mov hIcon,FUNC(LoadIcon,hInstance,IDI_ICON1)
        invoke SendMessage,hDlgMain,WM_SETICON,IDI_ICON1,hIcon
        invoke SetWindowText,hDlgMain,SADD("Caption")
    ;*************************
    .elseif uMsg == WM_COMMAND
    ;*************************
        .if wParam == IDOK
            invoke LockResource,hResWavDat
            invoke PlaySound,hResWavDat,NULL,SND_ASYNC or SND_MEMORY or SND_LOOP
        .elseif wParam == IDCANCEL
            invoke SendMessage,hDlgMain,WM_CLOSE,NULL,NULL
        .endif
    ;***********************
    .elseif uMsg == WM_CLOSE
    ;***********************
        invoke EndDialog,hDlgMain,NULL
    ;****
    .else
    ;****
        mov eax,FALSE
        ret
    ;*****
    .endif
    ;*****
        mov eax,TRUE
        ret
 
DlgProc Endp
;/////////////////////////////////////////////////////////////////////////////
end _start

@Jafa · 05.06.2008, 21:51

ну учитывая то что Sasha недавно спрашивал как установить иконку на кнопку, то я считаю что пока не надо его так грузить

) просто подсказать

@mikityak · 05.06.2008, 21:52

Ем сори :'(

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3

	Как добавить звук на форму или проект 05.06.2008, 17:09. Показов 6869. Ответов 5 Метки нет (Все метки) Как можно добавить звук на форму или проект, чтобы при открытии программы играла музыка. Например в краках и кейгенах обычно играет какая-то музыка, когда запускаешь их Заранее благодарен!!!!! 0

@Jafa 51 / 51 / 13 Регистрация: 05.06.2008 Сообщений: 139
	05.06.2008, 20:45
	воспользуйся функцией bool PlaySound(char* path,HINST resurs,int flag); 0

@Jafa 51 / 51 / 13 Регистрация: 05.06.2008 Сообщений: 139
	05.06.2008, 21:51
	ну учитывая то что Sasha недавно спрашивал как установить иконку на кнопку, то я считаю что пока не надо его так грузить) просто подсказать 0

@mikityak 617 / 22 / 0 Регистрация: 30.09.2007 Сообщений: 357
	05.06.2008, 21:52
	Ем сори :'( 0