VPF::определение языка ввода - Форум программистов

fidres

Дата 3.9.2007, 08:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 15.11.2006

Репутация: нет
Всего: 1

сталкнулся с проблемой проверки языка ввода системы.
то бишь, поменять я его нашёл как:

Код

LoadKeyboardLayout(StrCopy(Layout,'00000419'),KLF_ACTIVATE)

а вот как проверить и сохранить это состояние системы - не могу найти.
где-то кажись видел, но вспомнить не могу где я это видел...
мож кто подскажет? а я пока в библии поковыряюсь, мож там чего найду полезного...
но от помощи не откажусь.
замысел таков: при запуске проги, мне нужно опросить оную на предмет языка ввода, сохранить это состояние для последующего восстановления (по идее, при выходе из проги)...
ну и попутно вывести типа индикатора в статус_баре - русский/английский...

--------------------

Исправьте ошибку в слове <ХЕРОШО> и я скажу Вам оптимист Вы или пессимист.

BaD_SeCt0R

Дата 3.9.2007, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 3
Всего: 18

Код


var
  TID, PID: cardinal;
  KL: hKL;
begin
  TID := GetWindowThreadProcessId(Application.Handle, PID);
  AttachThreadInput(GetCurrentThreadId, TID, True);
  KL:= GetKeyboardLayout(TID);     //А вот KL и есть идентификатор
                                                       //раскладки, его и сохраняй!

Цитата(fidres @ 3.9.2007, 08:39

)

ну и попутно вывести типа индикатора в статус_баре - русский/английский...

ну а обрабатывать смену раскладки можно по событию WM_INPUTLANGCHANGEREQUEST

--------------------

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

fidres

Дата 4.9.2007, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 15.11.2006

Репутация: нет
Всего: 1

Цитата(BaD_SeCt0R @ 3.9.2007, 09:38

)

ну а обрабатывать смену раскладки можно по событию WM_INPUTLANGCHANGEREQUEST

BaD_SeCt0R, а на пальцах не покажешь? ;)
я просто в winapi ваще профан.
smile

Это сообщение отредактировал(а) fidres - 4.9.2007, 09:54

--------------------

Исправьте ошибку в слове <ХЕРОШО> и я скажу Вам оптимист Вы или пессимист.

BaD_SeCt0R

Дата 4.9.2007, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Lazy Coder

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 3
Всего: 18

Цитата(fidres @ 4.9.2007, 09:50

)

BaD_SeCt0R, а на пальцах не покажешь? ;)
я просто в winapi ваще профан.

Покажу

Я вот тута те примерчи с комментами накидал. Чистый WinAPI, думаю тебе поможет разобраться

Код


program KLOut;

uses
  Windows, Messages;

const
  WinCName = 'TOurWnd'; //наш класс окошка
  WinCaption = 'Язык: '; //А енто заголовочек
  Rus = 'Русский!';
  Eng = 'Инглиш!';

var
  OurWnd: HWND;
  AMsg: TMsg;


//Вот этой ф-цией мы будем обрабатывать наше окно:
function OurWndProc(Window: HWnd; AMessage, WParam, LParam: Longint): Longint; stdcall; //Не забывай stdcall! это частая ошибка начинающих
var
  i:integer;
  KL: hKL;
begin
//Вот, что ты хотел: сообщения
  case AMessage of
   WM_INPUTLANGCHANGE: //Вот, что тебе надо было обработать
    begin
     SetWindowText(OurWnd, PChar(WinCaption));
     KL:= GetKeyboardLayout(0);
     if (KL shr 16) = $409 then
       SetWindowText(OurWnd, PChar(WinCaption+Eng));
     if (KL shr 16) = $419 then
       SetWindowText(OurWnd, PChar(WinCaption+Rus));
    end;
   WM_DESTROY:
    begin
     PostQuitMessage(0);
     Result := 0;
     Exit;
    end;
  else
   Result := DefWindowProc(Window, AMessage, WParam, LParam);
  end;
end;

//терь зарегаем наш класс:
procedure MakeOurClass;
var
  OurClass: TWndClass;
begin
  with OurClass do
   begin
    style := CS_HREDRAW or CS_VREDRAW; //стиль - перерисовка
    lpfnWndProc := @OurWndProc; //наша ф-ция обработки
    cbClsExtra := 0; //Эт нам
    cbWndExtra := 0; //не нада
    hInstance := hInstance;
    hIcon := LoadIcon(0, IDI_APPLICATION); //иконка - стандарт
    hCursor := LoadCursor(0, IDC_ARROW);   //да и такой же курсор
    hbrBackground := COLOR_BTNFACE;        //любимый дельфовый цвет :)
    lpszMenuName := nil;                   //а здесь главное меню вставишь, если надобно
    lpszClassName := PChar(WinCName);      //регаем имя нашего класса
   end;
  //А вот и регистрация!
  RegisterClass(OurClass);
end;

function MakeOurWnd: hWnd;
begin
  // Создаем окошко
  Result := CreateWindow(PChar(WinCName),PChar(WinCaption),WS_OVERLAPPEDWINDOW,
    // размер сам придумай :)
    Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),
    Integer(CW_USEDEFAULT),Integer(CW_USEDEFAULT),
    0, 0, hInstance, nil);
end;

begin
//Поехали!
  MakeOurClass;
  OurWnd:=MakeOurWnd;
  ShowWindow(OurWnd, SW_SHOWNORMAL);
  while (GetMessage(AMsg, 0, 0, 0)) do
    begin
      TranslateMessage(AMsg);
      DispatchMessage(AMsg);
    end;
end.

--------------------

Кто владеет информацией - владеет миром. (С) Френсис Бэкон.

fidres

Дата 5.9.2007, 00:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 15.11.2006

Репутация: нет
Всего: 1

BaD_SeCt0R, нуу! классика!
благодарю!

Это сообщение отредактировал(а) fidres - 5.9.2007, 00:39

--------------------

Исправьте ошибку в слове <ХЕРОШО> и я скажу Вам оптимист Вы или пессимист.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »