Как определить раскладку клавиатуры?

← →
Term © (2004-03-12 12:29) [0]

Собственно сабж :)))

← →
MU (2004-03-12 12:35) [1]

HKL GetKeyboardLayout(

DWORD dwLayout // thread identifier
);

← →
Term © (2004-03-12 12:43) [2]

а примерчик можно...

← →
MU (2004-03-12 12:52) [3]

TKeyBoardLayout = (klLatin = $409, klCyrillic = $419, klNoChange = 0);
function KbdLayout(KL : TKeyBoardLayout = klNoChange) : TKeyBoardLayout;

implementation

function KbdLayout(KL : TKeyBoardLayout) : TKeyBoardLayout;
begin
Result := TKeyBoardLayout(GetKeyBoardLayout(0));
if (KL <> Result) and (KL <> klNoChange) then
ActivateKeyboardLayout(HKL(KL), 0)
end;

begin
if KbdLayout <> klCyrrilic then
KbdLayout(klCyrrilic);
end;

спасибо :)))

Как определить раскладку клавиатуры? Найти похожие ветки