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

@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

Ем сори :'(

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114

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

	Как добавить звук на форму или проект 05.06.2008, 17:09. Показов 6853. Ответов 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