Локализация в Delphi 2007

[Wizard2007]

Здравствуйте!
Поделитесл пожалуйста опытом по локализации приложения в Delphi 2007. Все что нашел касается Delphi 5. Меня интересует как это сделать правильно и красиво.

[pomao]

1. Открыть блокнот.
2. Набрать:
STRINGTABLE
{
1, "Дешифратор"
2, "Дешифрування лог-файлів"
}
3. Сохранить документ с расширением rc (ukr.rc).
4. Компилировать brcc32.exe ukr.rc, в результате чего получаем res файл (ukr.res).
5. В Delphi создать проект DLL WIZARD.
6. Подключить после блока USES свой ресурсный файл: {$R ukr.res}. Блок USES можна удалить.
7. Project -> Build ... - Получаем dll-ку (ukr.dll).
8. Используем dll-ку в проекте:
- в разделе public
HRes: THandle;
- в разделе var
StrTblOfs: integer;
- для FormShow главного окна проекта
HRes:= LoadLibraryEx(PChar('ukr.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
StrTblOfs:= 0;
if LoadString(HRes, StrTblOfs + 1, @a, sizeof(a)) <> 0 then BitBtn1.Caption := StrPas(a);

[Wizard2007]

Как программа сама узнает какое именно из предложенных значений надо борать при запуске программы в России или в Украине

[pomao]

Цитата: Сообщение от Wizard2007 Как программа сама узнает какое именно из предложенных значений надо борать при запуске программы в России или в Украине

Организовать с помощью options.ini-файла:
[Language]
1=ukrainian.dll
2=russian.dll
3=english.dll
Active=ukrainian.dll

// Зчитування активної мови
FI:= TIniFile.Create(PathExe + 'options.ini');
ActiveLanguage:= FI.ReadString('Language', 'Active', 'english.dll');
FI.Free;

if HRes<>0
then FreeLibrary(HRes);
HRes2:= LoadLibraryEx(PChar(PathLanguage + ActiveLanguage),
0, LOAD_LIBRARY_AS_DATAFILE);

Или есть вариант методом определения используемого языка операционной системы.

[Wizard2007]

Цитата: Сообщение от pomao Организовать с помощью options.ini-файла: [Language] 1=ukrainian.dll 2=russian.dll 3=english.dll Active=ukrainian.dll // Зчитування активної мови FI:= TIniFile.Create(PathExe + 'options.ini'); ActiveLanguage:= FI.ReadString('Language', 'Active', 'english.dll'); FI.Free; if HRes<>0 then FreeLibrary(HRes); HRes2:= LoadLibraryEx(PChar(PathLanguage + ActiveLanguage), 0, LOAD_LIBRARY_AS_DATAFILE); Или есть вариант методом определения используемого языка операционной системы.

А как же инструменты, ко торые предлагают для локализации сами разработчик delphi?