[sariman]

Как узнать язык ввода? И вывести его в StatusBar. Помогите плз

[m1sclick]

StatusBar1.SimpleText:= inttostr(GetKeyBoardLayout(0));

[sariman]

хм..появляются какие-то цифры и все
вот например: 68748313

[m1sclick]

Ну правильно....
Теперь в интернете ищем коды и сравниваем. У тебя русская стоит.

[NumLock]

GetKeyboardLayout function
Language Identifiers
Language Identifier Constants and Strings

Код:

var
  hForegroundWindow: THandle;
  idProcess: DWORD;
  hKeyboardLayout: HKL;
  sTip: String;
  sIcon: String;
begin
  hForegroundWindow:=GetForegroundWindow;
  idProcess:=GetWindowThreadProcessId(hForegroundWindow);
  hKeyboardLayout:=LOWORD(GetKeyboardLayout(idProcess));
  case hKeyboardLayout of
    $0409: begin
      sTip:='Английский';
      sIcon:='ENICON';
    end;
    $0419: begin
      sTip:='Русский';
      sIcon:='RUICON';
    end;
    else begin
      sTip:='KeyboardLayout';
      sIcon:='UNKICON';
    end;
  end;
end;

[sariman]

спасибо огромное!!!!)))))))))

[AlexSku]

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

хм..появляются какие-то цифры и все
вот например: 68748313

Название языка по номеру можно получить так:

Код:

GetLocaleInfo(
        LangID,                  
        Locale_SLanguage,      
        LangName,
        Size);

[Giku]

а как изменить?

изменить язык ввода на английский (если поддерживается)

напиштье функцию, а я дальше погооглю

[NumLock]

Код:

LoadKeyboardLayout(PChar('00000419'), KLF_ACTIVATE); { русский }
LoadKeyboardLayout(PChar('00000409'), KLF_ACTIVATE);