Проверка пароля в 7z архиве.

[Aqel]

Я начинающий программер на Delphi - не "бейте палкой".
Я пишу программу, в ней необходима проверка ВЕРНЫЙ/НЕ ВЕРНЫЙ пароль на открываемый 7z архив.
Вот нашёл в сети этот код:

function PasswordCallback(sender: Pointer; var password: WideString): HRESULT; stdcall;
begin
// call a dialog box ...
password := 'password';
Result := S_OK;
end;

procedure TMainForm.ExtractClick(Sender: TObject);
begin
with CreateInArchive(CLSID_CFormatZip) do
begin // using callback
SetPasswordCallback(nil, PasswordCallback);
// or setting password directly
SetPassword('password');
OpenFile('c:\test.zip');
...
end;
end;

Подскажите как его подогнать под мои нужды... или нужен другой подход?
СПАСИБО.

[Человек_Борща]

явно другой подход=)

идите на 7zip.org и ищите там ответ в спец. биьлотеке в которой уже все есть. А ещё поиском по форуму все что про 7zip.