Зашиваем

[sad]

Можно ли зашить в .EXE файл музыку или какие нибудь другие файлы и как это сделать, если есть
спецальные проги киньте ссылку!!!!!

[A.A.Z.]

Файлы ресурсов

[ism]

можно, как часто делают, в конец экзешника

PS
Будет работать прикрасно, насколько я знаю WinRar так и делает

[xolod]

...
насколько я знаю WinRar так и
...

Можно не скромный вопрос? Откуда ты знаешь, как делает WinRar

[tyomitch]

Дык исходники у unrar-а открытые, можно легко взять и посмотреть, как что делается...

[moderator]

И всё же, проще и легче засунуть будет в ресурсы.

[GM]

ИМХО тут нужно действовать в зависимости от ситуации:
1) Если файлы являються частью приложения и их можна задать на этапе разработки -> в ресурсы
2) Если ехе-шник служит контейнером для файлов (например SFX-архив) -> конец файла

[Ramzes]

Ну ламер я тока не бейте меня, как в файл ресурсво записывать, допустим, я засуну в ресурсы книгу Екселя, и буду ее менять и сохранять в ресурсы, такое возможно? Знаю что возможно, тока не знаю как

[tyomitch]

Низзя. Вообще файл запущенной проги менять низзя.
Вот в чужой, которая не запущена - в ней можно.

[Ramzes]

Млин А что ж тогда делать, я так огорчился по этому поводу Пойду ка пива попью

Ладно, а как можно сделать в екзешнике который не пашет?

[Ariman]

Ну... Ежли в конце, идем туда, считываем, меняем.
А если в ресурсах - ищем соответственно внутри ехешника.

[Ariman]

А вообще, наверное, можно вниз приписывать прогу, меняющую то, что нужно в твоем ехешнике, а при завершении работы основной программ, извлекать "менялку" и запускать ее.
А та после работы сама себя удалит. (Ну опять же, не сама, а по средствам батника)

[ism]

А читать-то из себя можно, SFX архивы самостоятельно извлекаются, а флеш анимации автономно проигрываются. Попробуйте переименовать .exe флешролик в .scr

[Ariman]

А читать-то из себя можно, SFX архивы самостоятельно извлекаются, а флеш анимации автономно проигрываются. Попробуйте переименовать .exe флешролик в .scr

А это к чему? Разве проблемы с считыванием из программы были?

[ism]

Вобщем должен кто-то написать рбочий пример и почему-то мне кажется, что этот кто-то - это Я

Главная прога читающая себя

Код: Выделить всё

Private Sub Form_Load()
Dim MyPath As String
Dim intNum  As Integer
Dim dataSize As Long
Dim data As String

MyPath = App.Path
If Right(MyPath, 1) <> "\" Then MyPath = MyPath & "\"

intNum = FreeFile
Open MyPath & App.EXEName & ".exe" For Binary As intNum
Get #intNum, LOF(intNum) - 3, dataSize
data = Space(dataSize)
Get #intNum, LOF(intNum) - 2 - dataSize, data
Close #intNum

Text1.Text = data
End Sub

А это прога пишущая в конец, первой проги

Код: Выделить всё

Private Sub Command1_Click()
Dim MyPath As String
Dim intNum  As Integer
Dim dataSize As Long
Dim data As String

data = Text2.Text
dataSize = Len(data)

intNum = FreeFile
Open Text1.Text For Binary As intNum
Put #intNum, LOF(intNum), data   'записываются данные
Put #intNum, LOF(intNum), dataSize   'записывается их длинна(максимальная - Long)
Close #intNum
End Sub


Седеные коментарии - записываются данные и записывается их длинна(максимальная - Long), соответственно

PS
hexedit-вечен

[Inferno]

Лично я бы завел отдельный файл для этого дела со своим форматом.
к примеру
2 первых байта к примеру MR( multimedia resource)
4 байта длина структуры (Structure Lenght)
.....
....
....
Файлы ресурсов
.....
LOF-Sructure lenght

1 байт описание (рисунок, музыка и т.д) или 3 для хранения расширения
4 байта начало ресурса
4 байта конец ресурса (или длина)
Ну можно еще и 255 байт на имя файла


И рихтуйте себе на здоровье, как в впроцессе работы приложения так и вне.
P.S. нормальные герои всегда идут в обход )

[Ramzes]

Лично мне уже перехотелось чего то куда то запихивать и изобретать что то новое После всего вышесказаного Хорошо что не перевелись на форуме люди такие как tyomitch, обьясняют все быстро и четко