Как распаковать самораспаковывающийся архив delphi

[bilibian]

Сообщение от Аватар

ShellExecute(Handle, 'open', 'file.exe', nil, nil, SW_SHOWNORMAL);

Делаю так:

ShellExecute(Handle, 'open', PChar(ExtractFilePath(Application.Exename)+'file.exe'), nil, nil, SW_SHOWNORMAL);

В итоге получаю это:


Да и без ExtractFilePath(Application.Exename ) я получал тоже самое.

[Аватар]

Если есть какой то параметр в обход кнопки извлечь, то OK. Иначе так будешь жить или программно ищи окно и кликай по кнопке. А с простым архивом тоже самое?

[bilibian]

Сообщение от Аватар

Если есть какой то параметр в обход кнопки извлечь, то OK. Иначе так будешь жить или программно ищи окно и кликай по кнопке. А с простым архивом тоже самое?

Ну он так же открывается и показывает свое содержимое.

Мне не важно какой архив, главное распаковать его содержимое в папку в которой он находится и все.

[Аватар]

Ну есть же и другие архиваторы, не требующие подтверждения при извлечении данных

ADD

Можно еще попробовать путь в параметрах задать куда писать. Может по другому себя вести будет

[bilibian]

Сообщение от Аватар

Можно еще попробовать путь в параметрах задать куда писать. Может по другому себя вести будет

Не совсем Вас понял..

Если Вы имеете ввиду это:

ShellExecute(Handle, 'open', 'file.exe', PChar(ExtractFilePath(Application.Exename)), PChar(ExtractFilePath(Application.Exename)), SW_SHOWNORMAL);

То не работает В смысле ведет себя так же, как будто без параметров

[ZuBy]

rar.exe -y "c:\file.exe" "c:\output die\"

[Аватар]

Не. Предпоследний параметр это рабочий каталог. Там могут всякие временные файлы создаваться и прочее. Обычно в параметрах архиватора при распаковке можно, а чаще всего и нужно, задавать путь куда писать распакованный результат. Я про это.

[bilibian]

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

rar.exe -y "c:\file.exe" "c:\output die\"

 ShellExecute(Handle, 'open', PChar('rar.exe -y "'+ExtractFilePath(Application.Exename)+'file.exe" "'+ExtractFilePath(Application.Exename)+'"'), nil, nil, SW_SHOWNORMAL);

Не работает

[bilibian]

Сообщение от Аватар

Не. Предпоследний параметр это рабочий каталог. Там могут всякие временные файлы создаваться и прочее. Обычно в параметрах архиватора при распаковке можно, а чаще всего и нужно, задавать путь куда писать распакованный результат. Я про это.

Окей.

Попробовал так:

ShellExecute(Handle, 'open', 'file.exe', PChar('e '+ExtractFilePath(Application.Exename)), nil, SW_SHOWNORMAL);

Без результатно Просто распаковщик открывается и все.

[ZuBy]

А ты мой код пробовал в командной строке открыть?

Ты пораметры в ShellExecute неправиль вводишь!