Звуки и программа одним файлом

Используй файл ресурсов. А чтоб проигрывать WAV из ресурсов то приклей к своему проекту вот этот модуль.

[QUOTE=ace lighting]Используй файл ресурсов. А чтоб проигрывать WAV из ресурсов то приклей к своему проекту вот этот модуль.[/QUOTE]
Я немного начинающий и не знаю как делаются эти файлы-ресурсы! :) Можете написать маааааленький примерчик как сделать такой ресурс со звуковым файлом и дальнейшего его запуска! Осень прошу.....)

В визуал бейсике заходишь в Add-ins/ Add-in maneger, выбираешь Vb Resourse Editor и ставишь галочку напротив поля load on startup после появиться иконка на панели задач как у реестра. Вот это и есть файл ресурсов. Открываешь его там есть 5 типов ресурсов
1 - текст
2 - курсоры
3 - иконки
4 - рисунки bmp
5 - разное.
выбираешь пятый тип ишшешь звук и выбираешь его. потом сохраняешь ( В РЕДАКТОРЕ РЕСУРСОВ!) а потом и сам проект и пробуешь. Не забудь модуль прицепить!

[QUOTE=ace lighting]В визуал бейсике заходишь в Add-ins/ Add-in maneger, выбираешь Vb Resourse Editor и ставишь галочку напротив поля load on startup после появиться иконка на панели задач как у реестра. Вот это и есть файл ресурсов. Открываешь его там есть 5 типов ресурсов
1 - текст
2 - курсоры
3 - иконки
4 - рисунки bmp
5 - разное.
выбираешь пятый тип ишшешь звук и выбираешь его. потом сохраняешь ( В РЕДАКТОРЕ РЕСУРСОВ!) а потом и сам проект и пробуешь. Не забудь модуль прицепить![/QUOTE]
Спасибо большое! пробую!

Круто! Работает! Ну гениально просто!

тьфу блин, а я в OLE загонял, потом выгонял, отрезал заголовок...короче занимался глупостями :)

[QUOTE=KAN]тьфу блин, а я в OLE загонял, потом выгонял, отрезал заголовок...короче занимался глупостями :)[/QUOTE]
бывает :D я сначала тоже такой же хренью занимался :D

Гы... Смешно... :)
А я записывал инфу в конец файла с программой и потом доставал ее посредством Get #1, Offset, Byte() :) :) :)

ace lighting
а как юзать ресурсы из *.res файла?

[QUOTE=KAN]ace lighting
а как юзать ресурсы из *.res файла?[/QUOTE]

В смысле? Из своей программы?

Для загрузки из файлов ресурсов есть 3 функции:
LoadResData
LoadResPicture
LoadResString

LoadResString - загружает строку из файла. Пример:
Private Sub Command1_Click()
Text1.Text = LoadResString(101) ' Загружаем текст из файла ресурсов, с id номером 101
End Sub
LoadResPicture - Функция загружает изображение, значок или курсор.
Синтаксис: LoadResPicture(id, restype)
но помоему надо так:
LoadResPicture (название вкладки например "WAVE", id)
id - номер рисунка(например, 102)
restype - значение этого параметра указывают на тип файла(0 - изображение, 1 - значок, 2 - курсор)
С LoadResData я так и не разобрался. Не пойму как правильно с ней работать. Ничё не получается.

[QUOTE=Bard]Гы... Смешно... :)
А я записывал инфу в конец файла с программой и потом доставал ее посредством Get #1, Offset, Byte() :) :) :)[/QUOTE]
По моему, если я не ошибаюсь, прицип файла ресурсов построен именно на это способе...

Bard
а как, не зная длины/размера файла, можно в конец дописать? или ты другой программой дописывал?

А как, ето ты мне обьясни, как так может быть, что мы не будем знать размер файла ?!

Размер любого открытого (и не только) файла можна узнать так:

LOF(File_ID)

или так:

FileLen("File Name")

Обе функцыи возвращают размер файла в байтах.

Ну а если ты ламер (не обежаться! обидеть не хочу), то можно записывать в конец файла даже не зная его длины. Просто надо открыть файл так: Open "File Name" For Append As 1, и все что ты будеш туда записывать, будет записываться в конец. Но я етим не пользовался, потому что работает медленно.