Как извлечь файлы из архива, не прибегая к копированию его на диск - VB

Узнай цену своей работы

Формулировка задачи:

Сейчас делаю упаковщик который создаёт распаковщик с "пришитым архивом", по такой упрощенной схеме: <Стартовый EXE><Архив ZIP> В архиве:
  • Основной EXE (основная программа)
  • Дополнительные файлы OCX // DLL // INI // ICO.. и тп
Стартовый:
  • производит копирование архива на диск
  • производит излечение Основного
  • Проверяет регистрацию и наличия библиотек (извлекает регестрирует)
  • Удаляет временно скопированный архив
  • Запускает основную программу
Вопросы:
  • Можно ли извлеч файлы из архива, не прибегая к копированию его на диск ?
  • Как программно проверить наличие регестрацию DLL//OCX и дату создания ?
  • Как зарегестрировать программно, не прибегая к батнику ?
  • Как узнать что основная программа запустилась ?
  • Как узнать что основная программа завершилась ?
  • Можно ли всё это сделать ещё проще ?

Решение задачи: «Как извлечь файлы из архива, не прибегая к копированию его на диск»

textual
Листинг программы
Dim notepadID As Integer
' Activate a running Notepad process.
AppActivate("Untitled - Notepad") 
' AppActivate can also use the return value of the Shell function.
' Shell runs a new instance of Notepad.
notepadID = Shell("C:\WINNT\NOTEPAD.EXE", AppWinStyle.NormalFocus)
' Activate the new instance of Notepad.  
AppActivate(notepadID)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.667 из 5
Похожие ответы