Последние записи
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
13th
Янв
При клике на кнопку нужно вывести название клавиатуры
Posted by Chas under Delphi
не знаю в каком месте реестра искать эти данные и как вывести это в label
Svetlana750231
через реестр не получилось, сделала так:
procedure TForm1.Button4Click(Sender: TObject);
var
a: string;
begin
//определяем тип клавиатуры
case GetKeyboardType(0) of
1: a := 'IBM PC/XT or compatible (83-key) keyboard';
2: a := 'Olivetti "ICO" (102-key) keyboard';
3: a := 'IBM PC/AT (84-key) or similar keyboard';
4: a := 'IBM enhanced (101- or 102-key) - Windows';
5: a := 'Nokia 1050 and similar keyboards';
6: a := 'Nokia 9140 and similar keyboards';
7: a := 'Japanese keyboard';
end;
Label4.Caption:=('Клавиатура: ' + a);
end;