Содержание материала

Используй GetKeyboardLayoutName

Автор ответа: Mikel

 

Code:

var

{©Drkb v.3}

 

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

  

Code:

function WhichLanguage:string;

var

ID:LangID;

Language: array [0..100] of char;

begin

ID:=GetSystemDefaultLangID;

VerLanguageName(ID,Language,100);

Result:=String(Language);

end;

 


Пример вызова этой функции:

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

Edit1.Text:=WhichLanguage;

end;

  

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

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить