Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Базы данных , ADO

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

Code:

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

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.

Взято из http://forum.sources.ru

Статья Какой язык на данный момент на клавиатуре? раздела Базы данных ADO может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: ADO ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
27.06.2017 20:10:07/0.044273138046265/0