Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > язык интерфейса Windows

Автор: offline 31.8.2005, 16:56

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

Автор: FRAGNATIC 31.8.2005, 17:22

Код


function WhichLanguage:string;
var 
  ID: LangID;
  Language: array [0..100] of char;
begin
  ID := GetSystemDefaultLangID;
  VerLanguageName(ID, Language, 100);
  Result := string(Language);
end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := WhichLanguage;
end;

Код


GetSystemDefaultLangID
GetSystemDefaultLCID
GetLocaleInfo

Автор: offline 31.8.2005, 19:37

Спасибо, работает smile