Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 85 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2022, 12:37   #1
Vartizor
Новичок
Джуниор
 
Регистрация: 03.10.2021
Сообщений: 1
По умолчанию изменение языка

Подскажите пожалуйста к сделать чтоб иконка в трее менялась вмести с раскладкой клавиатуры?

Код:
procedure TForm1.GetWindowsLanguage;
var
  hForegroundWindow: THandle;
  idProcess: DWORD;
  kbl: Cardinal;
  lang: string;
  langId: Integer;
begin
  hForegroundWindow := GetForegroundWindow;
  idProcess := GetWindowThreadProcessId(hForegroundWindow);
  kbl := LOWORD(GetKeyboardLayout(idProcess));
  case kbl of
    $409:
      langId := 2;
    $419:
      langId := 0;
    $422:
      langId := 1; //
  else
    lang := 'N/A';

  end;
 // Panel1.Caption:= lang;
  TrayIcon1.IconIndex := langId;
  if langId = 1 then
  begin
    ActivateKeyboardLayout(HKL_NEXT, KLF_ACTIVATE); // переключить следующюю
  { HKL_NEXT Selects the next layout in the circular list of loaded layouts maintained by the system.
    HKL_PREV Selects the previous layout in the circular list of loaded layouts maintained by the system.}
  end;
end;
Так значок изменяется только когда окно в фокусе а мне нужно чтоб всегда
Vartizor вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 85 тыс рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
код языка С Vova3921 Общие вопросы C/C++ 0 08.11.2018 20:20
Изменение языка в приложении Lord_Jesus_ Windows Forms 2 08.06.2017 22:14
TChromium,работа через прокси,изменение языка Дима я Общие вопросы Delphi 1 08.05.2013 08:31
Изменение языка среды MS SQL Server 2008 virtuhay266 Помощь студентам 1 01.06.2011 02:00
Загрузка языка AnGrig Общие вопросы Delphi 6 17.10.2007 09:05