Проблема Почему ошибка распаковки

akaSEGA

Новичок
тут то ты правильно всё расписал? procedure Extract7z (hWnd, hpb, hst: THandle; fpath, extractPath, pass: PChar); external 'Extract7z@files:is7z.dll stdcall';

как то и что то тут непонятное procedure CurStepChanged(CurStep: TSetupStep);
 
Последнее редактирование модератором:

akaSEGA

Новичок
я про это
try
Extract7z(wizardform.handle, progressbar.handle, ExtractFile.handle, ExpandConstant('{src}\1.7z'), ExpandConstant('{app}'), '');
Button1.visible:=false;
except
MsgBox('Неверный пароль!', mbInformation, MB_OK);
Button1.visible:=false;
end;
 
Сверху