Записать файл в файл!

[GPP]

Задача такова! Есть файл *.exe но для его работы требуется *.ocx не зарегистрированный в системе. Как сделать к примеру так:
1. Зашить *.ocx файл в *.exe
2. При запуске *.exe "вышивает" *.ocx
3. Копирует его в системную папку и регистрирует в системе.
4. Далее программа используя этот .ocx продолжает работу...

Заранее огромное спасибо.

[shady]

1. Зашить *.ocx файл в *.exe

может программа под название Fusion

2. При запуске *.exe "вышивает" *.ocx
3. Копирует его в системную папку и регистрирует в системе.
4. Далее программа используя этот .ocx продолжает работу...

для этого нужно использовать Setup. Сделать можно при помощи Setup Factory - очень рекомендую (все библиотеки зарегистрирует сам)

[GPP]

Надо именно по средствам VB 6

[Viper]

Магическое слово "ресурсы"

1. Записываешь *.ocx в ресурсы
2. Вытаскиваешь при запуске этот ресурс
3. Записываешь файл в нужное место
4. Регишь

ну и так далее...

Или да, Fusion!

[GPP]

как запихнуть его в ресурсы?

[Antonariy]

Addins - Addin manager - VB6 Resource Editor

[GPP]

Ну и каким образом мне запихнуть туда MSWINSCK.OCX? Скопировать в системную папку и потом зарегить?

[Viper]

Гы!

Даже методом тыка при открытом реадкторе ресурсов можно додумать что же нажать, чтобы поместить в ресурсы произвольный файл!
Add Custom Resource... жми

[GPP]

ну и как потом это все вытащить?

[Viper]

Зацени функцию LoadResData.
Получишь массив байтов, сохраняешь его как файл в нужном месте... и так далее

[MIT]

а регистрация типа так

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

Public Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Call ShellExecute(hwnd5, vbNullString, "regsvr32.exe", Chr(34) & "путь к файлу" & Chr(34) & " /s", "C:\WINDOWS\system32\", 0)
Sleep 1000


Зачем Sleep? А затем, чтобы дождаться пока файл зарегится

[tyomitch]

а регистрация типа так

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

...


Зачем Sleep? А затем, чтобы дождаться пока файл зарегится

Ну просто гениально... Нет слов

Некривой способ: http://bbs.vbstreets.ru/viewtopic.php?p=94185#94185

[GPP]

А если файл больше 64 грамм.

[GPP]

Пробовал так но не чего не получилось файл создается пустой!
Dim a() As byte
a = LoadResData(101, 10)

Open "C:\MSWINSCK.OCX" For Binary As #1
Put #1, , a
Close #1

[MIT]

tyomitch
И чем тебя мой способ не устроил?
Тем более зачем изобретать велосипед?

[Lumen]

У меня есть исходники компонента (компонент не мой), по функциям аналогичный винсоку, но занимает меньше места. Его просто добавляешь в проект и работаешь с ним как с винсоком. Написан полностью на API.

[tyomitch]

И чем тебя мой способ не устроил?

Тем, что неоправданная задержка на секунду.

Тем более зачем изобретать велосипед?

Вот именно. Зачем?
Нормальному способу 8 лет, а ты зачем-то выдумываешь свой.

[X-hacker]

По поводу .OCX B .EXE: Поиск по слову "Powerwrap" даже на том же Mail.ru!

[yaklit]

эээээ А чем кого то не устраивает функция Shell, которая ПРИСУТСТВУЕТ в msvbvm60.dll тем самым стандартная для VB6?
Я чувстую что ответ будет нужно дождаться завершения проги.... Этот способ легко обходится без АПИ тоже.

[yaklit]

О. ну да. файл можно наскоко я знаю не пихать в ресурсы, а значит он останется незамеченным там, например Resource Hacker-ом... Делается это путем добавления его после PE формата exe если я правильно выражаюсь. Способ придумал сам давно когда то.... Получается такой файл :
MZ(PE файл)MZ(ocx)formated-Размер(ocx).
считать можно, записать файл и зарегестрировать.