переключение раскладки в NT

[dAnIK SeNT]

Как в NT сменить раскладку клавиатуры для текущего процесса? Очень надо.
LoadKeyboardLayout+ActivateKeyboardLayout не катят (они меняют для всей системы, а для текущего процесса - фиг).

[earl]

Procedure TPhones.FormCreate(Sender: TObject);
Const CyrLayout : String = '00000419'; {LANG_RUSSIAN}
Var Qry : String;
K : hKey;
hCyr : HKL;
Begin
hCyr:=LoadKeyboardLayout(@CyrLayout,KLF_ACTIVATE);
If ActivateKeyboardLayout(hCyr,KLF_REORDER)=hCyr Then
ActivateKeyboardLayout(HKL_NEXT,KLF_REORDER);
End; - Переключает раскладку именно для текущего процесса, и именно в NT (2000, 2002)

[dAnIK SeNT]

Я немного ошибся <!--emo&:)--><!--endemo--> Мне надо изменить раскладку для другуго процесса (handle окна имеется, thread id получить не проблема). Можно ли это сделать?
Ведь переключатель раскладки это как-то делает?