раскладка клавиатуры

[varelik]

Доброго вечера.
есть вопрос. допустим я сканер к проге своей подключил и сделал так, что то что он отсканировал- передается в word, но вот проблема- цифры передаются а вместо букв(англ-х)- русские. Т.е. вместо G будет П.
Как переключиться то на английские? подскажите плиз

[mihali4]

А самому поискать?
http://www.programmersforum.ru/showthread.php?t=73188

[varelik]

mihali4, благодарю. Просмотрел както

Вот только, это не совсем то. Мне то нужно к хэндлу Worda либо Блокнота обратиться. Как бы это сделать?

[mihali4]

Сообщение от varelik

Мне то нужно к хэндлу Worda либо Блокнота обратиться. Как бы это сделать?

Посмотрите темы "Работа с чужими окнами".
Если в этот раз я вас правильно понял

[varelik]

mihali4, Уже разобрался, спасибо.
Вот что нужно было:

Const ENGLISH = $409;
//--------------------------------------------  
{установить раскладку в активном окне}
procedure SetLayoutActiveWnd(kbLayout : LongWord);
var 
  Layout: HKL;
  hWindow{, idProcess} : THandle; // ION T: не используется
begin
  // получить handle активного окна чужой программы
  hWindow := GetForegroundWindow;
  // Получить ссылку на раскладку
  Layout:=LoadKeyboardLayout(PChar(IntToStr(kbLayout)), 0);
  // посылаем сообщение о смене раскладки
  sendMessage(hWindow,WM_INPUTLANGCHANGEREQUEST,1,Layout);
end;
//-----------применение-------------------------
  {установить раскладку в активном окне}
    SetLayoutActiveWnd(ENGLISH);