VPF::Определение раскладки клавиатуры

BaD_SeCt0R

Дата 30.9.2007, 15:00 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

Код


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.

Это сообщение отредактировал(а) BaD_SeCt0R - 30.9.2007, 15:06

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

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

Rouse_

Дата 1.10.2007, 09:11 (ссылка)

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

Загрузка ...

Опытный

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

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

Не универсально smile

Помимо русского и английского существует множество различных языковых раскладок.
Используй GetKeyboardLayoutName()

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

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

BaD_SeCt0R

Дата 2.10.2007, 08:19 (ссылка)

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

Загрузка ...

Lazy Coder

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

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

Rouse_, пример взят в FAQ из отдельного топика и описывает исключительно частный случай. Тем не менее, я думаю он вполне понятен и может быть использован в качестве небольшого общеобразовательного пособия по данной теме. К тому же он еще и показывает, как создать окно средствами WinAPI, а так же возможность обработки сообщений.

P.S. Спасибо за замечание.

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

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

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