Как в Delphi получить текущий язык?

Как определить локализацию ОС: английская или русская?

Код

GetSystemDefaultLangID

Взято с сайта http://blackman.wp-club.net/

Какой язык на данный момент на клавиатуре?

Используй GetKeyboardLayoutName

Автор ответа: Mikel
Взято с Vingrad.ru http://forum.vingrad.ru


--------------------------------------------------------------------------------

Код

var Form1: TForm1;   LAYOUT: String;     implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var  RA: Array[0..$FFF] of Char; begin GetKeyboardLayoutName(RA);   Layout := StrPas(RA);   if Layout = '00000419' then       showmessage(' CCCP ' )   else       if Layout = '00000409' then         showmessage(' USA ' )       else         showmessage(' X 3 ' );     end;

Автор ответа: RAdmin
Взято с Vingrad.ru http://forum.vingrad.ru


--------------------------------------------------------------------------------

Код

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;

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

Взято с Исходников.ru http://www.sources.ru

Это сообщение отредактировал(а) Ozzя - 15.9.2004, 16:11