Как сделать распаковщик?

[Maitris]

Как сделать прогу в которой бы хранилось содержимое exe файла, при запуске она бы его распаковывала (этот exe) в заданную папку на винте и запускала? Ну и конечно чтобы ее размер вместе с содержимым exe был как можно меньше

[alibek]

А что значит "как"? В чем проблема?
Делаешь прогу, в нее вшиваешь exe-шник, при запуске распаковываешь этот файл и запускаешь.

[Maitris]

alibek Проблема в том, что я не имею понятия как это сделать
Как его "вшить" и как распаковать.
Ну как запустить ессесно знаю...

[ANDLL]

Вообщето, если сильно не мудорствовать, WinRAR делает так называемые SFX-архивы.

[alibek]

Так ты хочешь сделать это сам или хочешь, чтобы тебе это сделал кто-то другой?
Можешь показать, что ты уже пытался сделать, прежде чем спросил на форуме?

[alibek]

ANDLL, вот же ш. Даже с автозапуском и скриптами.

[Maitris]

alibek Я ПЫТАЛСЯ, ОЧЕНЬ СИЛЬНО ПЫТАЛСЯ .
Ну хоть маленький набросок сделай, как вделать и как распаковать.
Сейчас у меня это и так выполняет WinRar. Но он мне уже надоел порядком
Ясное дело что хочу сам, другое дело как...

[alibek]

У меня такое впечатление, что то, что ты сделаешь сам, будет гораздо хуже работать, чем WinRAR.
Добавляешь в ресурсы нужный exe-ник. В коде делаешь buff() = GetResData("FILE","PROG1") (здесь buff() это байтовый массив), затем этот буфер выгружаешь в файл (Open ... For Binary : Put ... : Close) и запускаешь (Shell).

[Nikolka]

Мужик, не мучайся и бери UPX или ASP Protect. Тут тебе и защита от хакеров и хорошое сжатие твоей проги, и к тому же сама распаковывает перед запуском прогу (тебе об этом не надо беспокоится). Бери лучше ASP - он лучше во всех отношениях.

[Maitris]

alibekСпасибо, попробую.

[Maitris]

NikolkaДа мне собственно не сжатие надо, а распаковка в определенную папку без вопросов

[Maitris]

alibek
Добавил русурс, тип назвал DATA, идентификатор EXE.
Ну а GetResData это функция должна быть? И что в тексте этой функции написать И какие аргументы должны быть?
Так? GetResData("DATA", "EXE")?

[Maitris]

Кто объяснит как считать ресурсный файл?

[alibek]

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

Dim buff() As Byte, FN As Integer
buff() = LoadResData("DATA", "EXE")
FN = FreeFile
If Len(Dir$("C:\tmp.exe")) > 0 Then Kill "C:\tmp.exe"
Open "C:\tmp.exe" For Binary As #FN
Put #FN, , buff()
Close #FN
Erase buff()