Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.02;
Скачать: CL | DM;

Вниз

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

 
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;


 
Term ©   (2004-03-12 12:53) [4]

спасибо :)))



Страницы: 1 вся ветка

Текущий архив: 2004.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.105 c
7-1079015293
Comp
2004-03-11 17:28
2004.05.02
Windows NT


9-1068714034
Хранитель_7К
2003-11-13 12:00
2004.05.02
Странно все это...


9-1068383106
G A M E R
2003-11-09 16:05
2004.05.02
LOD


1-1082204005
Anatoli
2004-04-17 16:13
2004.05.02
При создании Node в TreeView загонять соответствующие картинки


3-1081328675
Хамс
2004-04-07 13:04
2004.05.02
Как получить HEX-код картинки, или как запихнуть картинку в db?