Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
firstdock
 .. м-да..справку совсем никак не хотим читать?
Вот держи:
Код: function CallBack (sPath, nPercent, nStatus)
if nStatus == ZIP_STATUS_MAJOR then
StatusDlg.SetTitle("Подготовка просмотра");
StatusDlg.SetMessage("Пожалуйста подождите...");
StatusDlg.SetStatusText("Выполнено: ".. nPercent .."%");
StatusDlg.SetMeterPos(nPercent);
StatusDlg.SetMeterRange(1, 100);
end
end
sCorrectPass = "123456789";
tZIPPaths = Dialog.FileBrowse(true, "Открыть файл:", _DesktopFolder, "ZIP Files (*.zip)|*.zip|", "", "zip", false, true);
if (tZIPPaths ~= nil and tZIPPaths[1] ~= "CANCEL") then
sPathFolder = Dialog.FolderBrowse("Папка изорхивации:", "AutoPlay\\Docs");
if (sPathFolder ~= "CANCEL" and sPathFolder ~= "") then
sPass = Dialog.PasswordInput("Запрос пароля", "Введи пароль:", MB_ICONQUESTION);
if (sPass == sCorrectPass) then
StatusDlg.Show(MB_ICONINFORMATION, false);
Zip.Extract(tZIPPaths[1], {"*.*"}, sPathFolder, true, false, sPass, 0, CallBack);
StatusDlg.Hide();
else
result = Dialog.Message("Запрос пароля", "Пароль введен неправильно.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end
end
end |
Добавлено:
firstdock -- и по поводу во такой записи:
Цитата:| Zip.Extract(Dialog.FileBrowse(true, "Locate File", "AutoPlay\\Docs", "All Files (*.*)|*.*|", "", "", true, true) , {"*.*"},Dialog.FolderBrowse("Введи назначение изорхивации:", ""), true, true, Dialog.PasswordInput("Запрос пароля", "Введи пароль:", MB_ICONQUESTION), MB_ICONQUESTION); |
Не кажется те, что она слишком сложнааа? Пойму делать лучше поочердно с проверками на ошибки, правильности всякие там и т.п. ИМХО
|
точно не обоснованы, сорри, что не проверив ляпнул.. 
