Открытие запароленого архива

[Yurk@]

Добрый день!
Подскажите, плиз. Имется запароленый архив, который нужно открыть из Делфи. Как мне это сделать с передачей (програмной) пароля на архив?
P.S. Архив формата 7z (пароль заранее известный)

[Somebody]

А в чём проблема? Если как распаковать архив - то смотри в справке по 7zip про работу с командной строкой.
----------
7z.exe x File.7z -pPaSsWoRd

[Yurk@]

А можно примерчик кода на Делфи для распаковки!!!

[Air]

Сообщение от Yurk@

А можно примерчик кода на Делфи для распаковки!!!

А что тут сложного...

Модуль ShellApi, добавить не забудь

shellexecute(application.Handle,pchar('Open'),
pchar('<путь к 7z.exe>'),pchar('<параметры>'),'<рабочая папка>',<состояние окна>);

пример.

shellexecute(application.Handle,pchar('Open'),
pchar('7z.exe'),pchar('Arhiv.7z -pPaSsWoRd'),'',1);

что-то в этом роде.

[Yurk@]

ShellExecute(0, 'open','C:\Program Files\7-Zip\7z.exe', 'Unit2.7z -psec', nil, 1);

Не работает

[Serge_Bliznykov]

Ключик x пропущен.
да и путь к архиву я бы полностью задал. иначе он должен быть рядом с программой.

[Yurk@]

Ключик x пропущен.
да и путь к архиву я бы полностью задал. иначе он должен быть рядом с программой.

А где именно он должен стоять??? (ключик х).
Архив находиться в папке с прогой!

[Yurk@]

Все. Нашел. Спасибо!
Только второй вопрос:
Если пароль неверный - он все равно распаковывает архив но распакованные файлы без содержания (т.е. размеры каждого файла считаются байтами), оригиналы более 1 Мб.
Как это можно решить - чтобы выдавалось сообщение о неверном пароле и прекращались действия?