Принудительный вывод Exception на одном языке

[Zer0]

Всем добрый вечер. Возникла проблема - получать сообщения Exception всегда на одном и том же языке, вне зависимости от региональных настроек системы (например использовать английский)
В интернете под NET было найдено такое решение http://stackoverflow.com/questions/1...users-language
Но в Delphi нет ChangeUICulture
Пробовал изменять локаль потока - продолжают выводиться на системном языке
Что еще можно попробовать? (нужно чтобы метод не требовал привилегий администратора)

[GunSmoker]

А в приложении вообще-то есть строки на другом языке? По умолчанию в ваших программах есть только английский. Все прочие языки надо самому подключать.

[Zer0]

Есть, но не вижу связи между текстами в программе и генерируемыми стандартными исключениями. Пример:

Хотя никаких намеков на иврит в программе нет
Цель - избежать именно таких моментов

[GunSmoker]

Так ведь этот текст приходит не от вашей программы, а от ОС.

Большинство исключений генерируются с тем сообщением об ошибке, что указывает ваша программа. Поэтому вы их контролируете. Можете менять. Язык подменять.

Но некоторые сообщения приходят от других компонентов системы, не от вас.

[Zer0]

По ссылке есть решение под .NET, насколько я понял - принудительное указание языка (системные исключения тоже начинают генерироваться на этом языке)
Логично предположить, что должно быть нечто аналогичное и для Delphi

[GunSmoker]

.NET - это управляемое окружение, оно изолируется от нижележащей ОС слоем виртуальной машины. Там конечно всё будет под вашим контролем.

Собственно, в системе в большинстве случаев не будет установлен произвольный нужный вам язык (вы получите сообщение на другом, ближайшем доступном, языке).

Но если язык всё же установлен и код, который получает системные сообщения, находится под вашим контролем, то да, вы можете это сделать. Системные сообщения получаются по коду с использованием функции FormatMessage. По умолчанию Delphi передаёт туда 0 (и это поведение изменить нельзя), но вы можете передавать туда любое значение. Например:

function SysErrorMessageLang(ErrorCode: Cardinal; LangID: LANGID): String;
var
  Buffer: PChar;
  Len: Integer;
begin
  Len := FormatMessage(
    FORMAT_MESSAGE_FROM_SYSTEM or
    FORMAT_MESSAGE_IGNORE_INSERTS or
    FORMAT_MESSAGE_ARGUMENT_ARRAY or
    FORMAT_MESSAGE_ALLOCATE_BUFFER, nil, ErrorCode, LangID, @Buffer, 0, nil);
  try
    while (Len > 0) and (CharInSet(Buffer[Len - 1], [#0..#32, '.'])) do
      Dec(Len);
    SetString(Result, Buffer, Len);
  finally
    LocalFree(HLOCAL(Buffer));
  end;
end;

var
  Ru, En: String;
begin
  Ru := SysErrorMessageLang(ERROR_FILE_NOT_FOUND, MAKELANGID(LANG_RUSSIAN, SUBLANG_DEFAULT));
  En := SysErrorMessageLang(ERROR_FILE_NOT_FOUND, MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT));
end;

Альтернативно, можно сменить язык UI, но эта возможность доступна только с XP и выше:

var
  LID: LangID;
begin
  Ru := SysErrorMessageLang(ERROR_FILE_NOT_FOUND);
  LID := MAKELANGID(LANG_ENGLISH, SUBLANG_DEFAULT);
  Win32Check(SetThreadUILanguage(LID) = LID);
  En := SysErrorMessageLang(ERROR_FILE_NOT_FOUND);
end;

[GunSmoker]

P.S. Менять локаль потока - плохая идея. Об этом написано в описании самой функции SetThreadLocale и об этом же говорит разработчик Windows.

[Zer0]

Большое спасибо, довольно познавательно.
Но есть небольшой минус (даже например для исключения в примере) использование первого метода не даст пути к файлу, а получать все возможные языки системы чтобы найти подходящий для замены - на мой взгляд извращение.
Метода SetThreadUILanguage у себя не нашел к сожалению, наверное это именно то что мне нужно. В каком модуле находится ее описание?

[GunSmoker]

Понятия не имею, я его сам написал.

Поищите по .pas файлам в \Source. Если нет - то в JEDI Windows API Library. Если и там нет - то:

var
  SetThreadUILanguage: function(LID: LangID): LangID; stdcall; // kernel32.dll

С динамической загрузкой, разумеется.

[Zer0]

А какие методы определения кода ошибки есть (кроме GetLastError, потому что не подходит)? Просто ERROR_FILE_NOT_FOUND не единственно возможный вариант
И возможно ли таким образом получить английский вариант ошибок класса TOleException?