для rar-а легко: Свойства файла (архива) > вкладка Архив > строчка Пароли: (она же [CLASS:Static; INSTANCE:21])
для zip-а то же самое: [CLASS:Static; INSTANCE:21]
у меня в ОС установлен WinRar,
но, думаю, и без него все свойства вкладки "Арихв" будут точно такие же.
Как вариант:
1. получить список архивов в папке
2. открыть папку с архивом и выбрать файл:
Код:
Run('Explorer.exe /select,' & 'полный путь к файлу')
3. открыть свойства: банально высталть ALT+Enter
4. перейти на 3-ю вкладку
5. прочитать данные из: [CLASS:Static; INSTANCE:21]
6. закрыть свойства, закрыть папку архива
7. повторить с пункта 2 для следующих архивов