Итак в выше упомянутых операционках функция
GetKeyboardLayoutName определяет раскладку
для текущего окна, но посколько передомной стоит задача
безпроводного (безпроводного - не использующего dll) keylogger'a на WinApi
то для трансляции полученных клавишь мне необходимо
получать раскладку клавиатуры каждый раз когда она меняется;

Вот что мне удалось придумать, но у этого способа есть один касяк
почемуто при клике мышкой на Desctop система убивает Shell (Explorer.exe)

Вообщем глянте и скажите своё мнение:

Код

Var H: HHook; ... {Для хука} H := SetWindowsHookEx( WH_SHELL, @ Proc, Hinstance, 0 ); ... {Для унхука} UnhookWindowsHookEx( H ); ... function Proc(nCode: Integer; wParam, lParam: Integer): Integer; stdcall; var     KL: array [0..8] of Char; begin  if nCode >= 0 then    begin    case nCode of    HSHELL_WINDOWACTIVATED,    HSHELL_LANGUAGE:      begin            GetKeyboardLayoutName(KL);            Form1.edit1.text:=(KL);      end;      end;      end;  Result := CallNextHookEx( H, nCode, wParam, lParam); end;

procedure TfmMain.TestClick(Sender: TObject);
var rus, lat, cur : HKL;
begin;
rus:=LoadKeyboardLayout('00000419', 0);
lat:=LoadKeyboardLayout('00000409', 0);
cur := GetKeyboardLayout(0);
if cur = lat then begin
//ShowMessage('Lat');
ActivateKeyboardLayout(rus,KLF_UNLOADPREVIOUS);
end;
end;

Ничего в хуках и беспроводных keylogger-ах не понимаю.... ...

Просто из желания помочь.... Делаю я так....

Maverick ты ? Валенок ? или я Очень умно суть вопроса изложил ?

Попробуй Form1.edit1.text:=(KL) заменить на, просто, MessageBoxA, именно на апишный, а не дельфевый ShowMessage. У меня помнится то ж когда-то проблемы были с VCL в хуках. Подозрения у меня такие, что иногда или всегда (?) хук вызывается в другом потоке, может и какие-то другие причины, но замена VCL на API помогла.

Cully а кроме MessageBoxA есть какиенить ещё идеи?

Испытывал запись в атомы - Reыult = ' FullSuxxx and Shit ' ;
На этом фантазия иссякла.