Lexua
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NightW0lf
Вот твой исправленый и несколько причесаный код. Ошибку выделил красным. Не знаю для чего это тебе, если для изменения языка интерфейса то я бы реализовал переключение языков автоматически, используя функцию System.GetDefaultLangID()
Цитата: --====================================================================================================
-- Переменные получаемые из файла autorun.ini
-----------------------------------------------------------------------------------------------------------------------------------
iPathINI = _SourceFolder.."\\autorun.ini"; -- путь к INI-файлу
--====================================================================================================
-- Ф-ция для запуска внешних файлов, находящихся рядом с самораспаковывающимся SFX-автораном
function GetSFXPath()
strPath = "";
strArg = _CommandLineArgs[1];
if strArg then
strPath = String.Right(strArg, String.Length(strArg) - 10);
end
if (String.Length(strPath) > 0) then
tblPath = String.SplitPath(strPath);
strPath = tblPath.Drive..tblPath.Folder;
end
return strPath;
end
-----------------------------------------------------------------------------------------------------------------------------------
-- !!!!Ф-ция чтения русских названий для "paragraph_id6" из "autorun.ini"
function GetENGTextFromINI()
cID6_1 = INIFile.GetValue(iPathINI, "text_eng", "ID6_1");
Paragraph.SetText("paragraph_id6", cID6_1);
cConfirmExitTitle_1 = INIFile.GetValue(iPathINI, "messages_eng", "ConfirmExitTitle_1");
cConfirmExitDialog_1 = INIFile.GetValue(iPathINI, "messages_eng", "ConfirmExitDialog_1");
end
-----------------------------------------------------------------------------------------------------------------------------------
-- !!!!Ф-ция чтения английских названий для "paragraph_id6" из "autorun.ini"
function GetRUSTextFromINI()
cID6_2 = INIFile.GetValue(iPathINI, "text_rus", "ID6_2");
Paragraph.SetText("paragraph_id6", cID6_2);
cConfirmExitTitle_1 = INIFile.GetValue(iPathINI, "messages_rus", "ConfirmExitTitle_2");
cConfirmExitDialog_1 = INIFile.GetValue(iPathINI, "messages_rus", "ConfirmExitDialog_2");
end
-----------------------------------------------------------------------------------------------------------------------------------
-- Ф-ция выхода из меню автозапуска
function ExitAutoPlayMenu()
ConfirmExit = Dialog.Message(cConfirmExitTitle_1, cConfirmExitDialog_1, MB_YESNO, MB_ICONINFORMATION, MB_DEFBUTTON1); -- Вопрос
if (ConfirmExit == IDYES) then
Application.Exit(0); -- Выйти из проекта
end
end
--=====================================================================================================
_SourceFolder = GetSFXPath(); -- SFX путь
--=====================================================================================================
|
|
Всего записей: 2849 | Зарегистр. 15-10-2002 | Отправлено: 11:33 19-08-2008 | Исправлено: Lexua, 11:46 19-08-2008 |
|
).. 
- все пути указываеются через двойной слеш. 
