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
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.
Статья Какой язык на данный момент на клавиатуре? раздела Базы данных ADO может быть полезна для разработчиков на Delphi и FreePascal.
