Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Язык клавиатруры, Какой язык? 
:(
    Опции темы
Over G
Дата 26.4.2002, 21:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Помогите! Как узнать какой язык на данный момент на клавиатуре? Не тот язык, который является глыным в системе, а который на клаве в данный момент...
PM MAIL   Вверх
Mikel
Дата 27.4.2002, 06:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
GetKeyboardLayoutName. Посмотри в Help'е параметры.


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
Over G
Дата 27.4.2002, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Можно поподробней, пожалуйста!
PM MAIL   Вверх
Mikel
Дата 28.4.2002, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Собственно я этим не пользовался, но это то что тебе надо. Там используются какие-то константы. Я поищу в FAQ.


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
Mikel
Дата 28.4.2002, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 1
Всего: 2
Код
var p:LPTSTR;
   s:string;
begin
s:='';
p:=@s;
if getkeyboardlayoutname(p)
  then case strtoint(p) of
            409:showmessage('English');
            419:showmessage('Russian');
            else showmessage('Unknown');
            end;
end;


По непонятным причинам у меня после определения языка выходит ошибка.


--------------------
...so remember, it's better to burn out than to fade away
PM MAIL ICQ   Вверх
QuickeneR
Дата 3.5.2002, 00:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
s должно быть не string, а массив из char длиной как минимум KL_NAMELENGTH или результат stralloc. Надо внимательнее читать help.
PM MAIL   Вверх
Over G
Дата 6.5.2002, 18:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо за ответы!
Но только у меня все время язык определяется, как русский. Переключаю раскладку клавы, он все равно русский...
PM MAIL   Вверх
RA
Дата 6.5.2002, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Брутальный буратина
****


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

Репутация: 14
Всего: 115
Нестоит благодарности  :cool

var
 Form1: TForm1;
 LAYOUT: String;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
RA: Array[0..$FFF] of Char;
begin
GetKeyboardLayoutName(RA) ;
Layout := StrPas(RA);
if Layout = '00000419' then showmessage(' CCCP ' ) else
if Layout = '00000409' then showmessage(' USA ' )
else showmessage(' X З ' ) ;
end;
PM   Вверх
Over G
Дата 7.5.2002, 12:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Все равно всегда определяется как русский...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0467 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.