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

Вниз

Language   Найти похожие ветки 

 
bos ©   (2002-02-13 12:20) [0]

Подскажите, как повесить Hook на переключение раскладки клавиатуры?


 
bos ©   (2002-02-13 15:31) [1]

Работает но не так как хотелось бы:

function GetLanguage: string;
var
p: PChar;
begin
GetMem(p, KL_NAMELENGTH);
try
GetKeyboardLayoutName(p);
Result := p;
finally
FreeMem(p, KL_NAMELENGTH);
end;
end;

function GetMsgHook(Code: Integer; WParam: wParam; Msg: PMsg): Longint; stdcall;
begin
if Msg.message = WM_INPUTLANGCHANGEREQUEST then begin
MyLanguage;
end; { if }
end;

procedure MyLanguage;
var
slan : string;
begin
slan:=GetLanguage;
if slan="00000409" then begin
// английский флаг
fmMyHints.Image3.Picture:=fmMyHints.Image1.Picture
end;
if slan="00000419" then begin
// российский флаг
fmMyHints.Image3.Picture:=fmMyHints.Image2.Picture
end;
end;

procedure TFmParam.FormCreate(Sender: TObject);
begin
SetWindowsHookEx(WH_GETMESSAGE,@GetMsgHook, 0,GetCurrentThreadId);
end;

процедура MyLanguage работает без проблем (проверял по нажатию кнопки), а вот когда вызывается при переключении раскладки выполняет с точностью до наоборот.



 
stx   (2002-02-14 10:17) [2]

а чего ты не хочешь воспользоваться компонентом наподобе KeySpy там есть событие onLayoutChange вешаешь на
него свой обработчик и все в порядке



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-39761
KIG_Soft
2002-04-25 07:09
2002.05.13
ShellListView


4-39914
alya
2002-03-13 13:00
2002.05.13
Окно поверх остальных


14-39855
XOY
2002-04-02 23:37
2002.05.13
А нафига нужна регистрация?


3-39651
Tanyusha
2002-04-16 12:37
2002.05.13
обработка соединения таблиц


14-39856
Desdechado
2002-04-03 12:57
2002.05.13
тест