Какой язык на данный момент на клавиатуре?
Falk0ner, вс, 06/07/2008 - 15:34.
Используй GetKeyboardLayoutName
Автор ответа: Mikel
Взято с Vingrad.ru http://forum.vingrad.ru
var
{©Drkb v.3(2007): www.drkb.ru}
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;
{©Drkb v.3(2007): www.drkb.ru}
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;
Пример вызова этой функции:
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;
begin
Edit1.Text:=WhichLanguage;
end;
Также, для определения активного языка можно воспользоваться функцией GetUserDefaultLangID.
Взято из http://forum.sources.ru
Отправить комментарий