Zloy_Gelud
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
HELP!
On Click кнопки "Далее":
Код: function ValidPath()
local sPath = Input.GetText("Install Directory Entry"); -- путь установки
local tPath = String.SplitPath(sPath); -- разлаживаем путь...
local cDrive = String.Left(sPath, 3); -- первые 3 знака в пути установки
tDrives = Drive.Enumerate(); -- таблица дисков
-- если буква диска не получена или третий символ в пути установки не является слэшем или путь установки менее 3 знаков
if (tPath.Drive == "") or (String.Right(cDrive, 1) ~= "\\") or (String.Length(sPath) <= 3) then
Dialog.Message("Ошибка", "Вы должны указать полный путь с буквой диска; например:\r\n\nC:\\APP", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
else
for i, cDriveLetter in tDrives do -- перебитаем в цикле по одному диску
cType = Drive.GetType(cDriveLetter); -- тип диска
if (cType == 3) then -- если диск - жесткий диск
if (tPath.Drive.."\\" ~= cDriveLetter) then -- если диск в пути установки является жестким диском
Dialog.Message("Ошибка", "Установка на этот диск не возможна.", MB_OK, MB_ICONEXCLAMATION, MB_DEFBUTTON1);
end
if (tPath.Drive.."\\" == cDriveLetter) then -- если диск установки существует и является жеским диском
break; -- прерываем
end
end
end
end
end |
У меня два локальных диска: С:\ и D:\. Если путь установки выглядит таким образом: C:\Program Files\APP, то все нормально, а если так: D:\Program Files\APP, то выскакивает сообщение: "Установка на этот диск не возможна.", хотя вообще ничаво не должно появляться. А если путь установки: G:\Program Files\APP, тогда выскакивают два таких же сообщения, а надо чтоб одно. Как все ето побороть..?..help 
Добавлено:
Путь установки - переменная sPath |
