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

[bilibian]

Привет.

Пишу так:

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

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

Поможете?

[ZuBy]

нужно использовать rar.exe, в документации все прекрасно написано!

[bilibian]

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

нужно использовать rar.exe, в документации все прекрасно написано!

Так и делаю!!

[ZuBy]

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

Так и делаю!!

Распаковать нужно через rar.exe

Все что нужно здесь!

rar.exe -?

[bilibian]

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

в документации все прекрасно написано!

Где это загадочное место??

Выдачу прошерстил, ничего нужного для себя не нашел.

Как записать? file.rar.exe ?? - Не работает.

[Stilet]

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

не?

[bilibian]

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

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

не?

К сожалению "не"

[Аватар]

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

Для file.exe полный путь

[bilibian]

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

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

Для file.exe полный путь

Делаю так:

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

нихрена!

[Аватар]

Смотрим код завершения и анализируем по нем почему нихрена. Стоит здесь еще полный путь прописать и попробовать

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