Язык ОСи / Language Window

[Richik]

Подскажите пожалуйста как получить язык ОС...
Только НЕ "язык ввода"/"язык раскладка клавиатуры", а язык Windows.

Спасибо

[mss]

Штудируй GetLocaleInfo с параметром LOCALE_SYSTEM_DEFAULT

[GunSmoker]

Что понимать под "язык ОС"?

Случайно не язык пользовательского интерфейса? Тогда GetUserDefaultUILanguage или GetSystemDefaultUILanguage.

[Richik]

Сообщение от GunSmoker

Что понимать под "язык ОС"?

на каком языке мой Windows XP

___________________________________ ____
Кажется нашел mss

function TForm1.GetLocaleInformation(Flag: Integer): string;
var
  pcLCA: array [0..20] of Char;
begin
  if GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, Flag, pcLCA, 19) <= 0 then
    pcLCA[0] := #0;
  Result := pcLCA;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin 
  ShowMessage(GetLocaleInformation(LOCALE_SENGLANGUAGE));
end;

[Stilet]

на каком языке мой Windows XP

Уф... PEId тебе в помошь. Открывай в нем ДЛЛки винды и смотри какой язык он тебе покажет

[Richik]

Сообщение от Stilet

Уф...

Код выше, мне только проверить не на чем, вокруг только русская((

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

[GunSmoker]

на каком языке мой Windows XP

Блин. У меня в системе два пользователя. У одного из них всё на русском, у другого - на английском. И ещё в системе есть японский.

Ну и на каком, по-твоему, языке у меня Windows?

Тебе для каких целей это надо? Не в сферическом же вакууме.

P.S. LOCALE_SYSTEM_DEFAULT - это вообще опция. Её можно менять.

[Richik]

Сообщение от GunSmoker

Блин. У меня в системе два пользователя. У одного из них всё на русском, у другого - на английском. И ещё в системе есть японский.

Ну и на каком, по-твоему, языке у меня Windows?

Тебе для каких целей это надо? Не в сферическом же вакууме.

P.S. LOCALE_SYSTEM_DEFAULT - это вообще опция. Её можно менять.

1. У Вас не Windows ХР, полагаю Vista или 7

2. Я пишу утилиту для автоматического скачивания обновлений и установки их в систему (Windows XP). А там для того чтоб все прошло прекрасно, необходимо совпадения языка у ОСи (Windows XP) с обновлением.
Зачем мне это надо это мое дело

[Richik]

амм..., пожите кто нить

=)