[Ptktysq]

Всем привет. Помогите, кто может с такой проблеммой.
Есть два независимых маленьких экзешника. Нужно "запаковать" их в отдельный экзешник, чтобы по двойному клику по нему запускались те два встроенные без распаковки куда либо. Ну, вобщем. чтоб не клацать сначала по одному, а затем по другому. А, чтобы был один. Архиваторы и "склееватели" не подходят, так как они, чтобы запустить их должны куда то распаковать. Возможно ли такое как то сделать?

Или такое же, только батник и экзешник (есть догадка что один экзешник конвентирован из батника, а другой диалоговое окно сделанное в Delphi).

[M.A.D.M.A.N.]

Ну вообще — можно упоротья и сделать, но без шаманства тут никак.

[Ptktysq]

Но, если это суперсложная задача, тогда "перепаковщик" програм KpoJIuK недосягаем. У него еще и диалоговый запрос отображается. Вот его файл, который он делает для любой перепаковки - http://file.sampo.ru/64tfr8/
Хотел наподобии, по проще, без дополнительного запроса.

[Alegun]

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

[M.A.D.M.A.N.]

Я не говорю, что это архисложно. При первом приближении всё выглядит относительно просто. Сложности в деталях.

Сообщение от Alegun

к первоисточнику, в учебных целях

Ох ёпт, а я как-то очень давно натыкался на этот модуль, а когда он мне понадобился — я никак не мог найти его!

[Ptktysq]

Я совсем зеленый и многое не понимаю, что такое "джойнерист", но работает все это превосходно.
Вот сделал видео http://youtu.be/16UB9sDMSjI
Здесь, может быть и сложно. Но так как из знаний у меня? только что установленная Delphi 7, то я и хотел помощи у знающих. Хотелось просто, без запросов "Да" и "Нет", а исполнение команды и завершающее диалоговое окно с кнопкой "Ок". Батники или с них экзешники знаю как делать, экзешник окна с кнопкой "Ок" тоже. А как это соеденить?

[M.A.D.M.A.N.]

Не парься, сделай SFX архив, он во временную папку распакуется, сделает свои дела и удалится.

[Ptktysq]

Не получится, я ведь не зря сказал: Архиваторы и "склееватели" не подходят, так как они, чтобы запустить их должны куда то распаковать.
А как тогда быть с %~dp0 - путь к директории, где лежит батник и сама запускаемая команда. С временной или другой папки это не будет работать.
Ну, допустим "удалить" можно сделать с помощью простого склеивателя или архиватора, а "Добавить" - никак. Как прописать путь в неизвестное место?

[M.A.D.M.A.N.]

Ну распаковать, и что? Он распакует во временную папку, а по завершении удалит всё за собой. Многие программы так устанавливаются.
Велосипеды изобретать интереснее?
Ну ссылки дали, делайте если так хочется.

[Ptktysq]

Да, что же ты ни как не поймешь?
Вот пример с прогой USB Disk Security
Команда:
@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v USB Disk Security /t REG_SZ /d "\"%~dp0USBGuard.exe\"" /f пропишет автозагрузку с того места, где и находится сама команда, то бишь батник.
Если его распаковать во временную папку то и запуск проги он в реестре пропишет со временной папки, где естественно, к примеру USB Disk Security и в помине нету. Или есть другая команда, которая с "темп" пропишет неизвестное место проги на диске. Попробуй.
А удалялку, естественно можно и в SFX, потому, что команда сработает и с "темп"
@reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v USB Disk Security /f
И при чем тут изобретение велосипедов.

Есть код вот такого окошка http://s017.radikal.ru/i400/1502/78/55b5ec900b28.png

Вот сам код

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TFrame1 = class(TFrame)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}
  Var st: String;

Begin



st:='БЛА,БЛА,БЛА,БЛА!';

ShowMessage(st);
end.

Есть команда

@reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v USB Disk Security /t REG_SZ /d "\"%~dp0USBGuard.exe\"" /f

Я по своей неграмотности думал, что в Delphi можно как то объеденить это и сделать один крохотный экзешник.

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

Видать не судьба.

[M.A.D.M.A.N.]

Дак так и сказал бы: "Мне нужно внедрить в софтину автоматическую включалку автозагрузки".
Вон ссылка на модуль, пиши свой регистратор автозапуска самого на себя, а аппликуху из "массива" запускай.

[Ptktysq]

В общем да, нажна "включалка" и "выключалка" к примеру автозагрузки конкретной проги с показом такого http://s017.radikal.ru/i400/1502/78/55b5ec900b28.png окошка.
Видать эта пустячная задача не моего уровня.

[M.A.D.M.A.N.]

Вот еще одна мысль: сделать длл, которая проверяет параметры запуска процесса-хозяина и выполняет регистрацию/удаление, тебе лишь нужно будет заставить программу подхватывать длл.

[Ptktysq]

Всем спасибо за участие. Обратился к автору изделия и проблемма решилась. Простенький код и прога NSIS. Он сказал, что и в дельфи ничуть не сложнее. Тема закрыта.