|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2011, 23:32 | #1 |
Пользователь
Регистрация: 11.04.2011
Сообщений: 11
|
Вывести данные клавиатуры на форму
При клике на кнопку нужно вывести название клавиатуры, вот набросок:
procedure TForm1.Button4Click(Sender: TObject); var reg : TRegistry; SP:TStrings; begin reg:=TRegistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKeyReadOnly('\SOFTWARE'); reg.GetValueNames(SP); Label4.Caption:='Клавиатура:' +... reg.Free; end; не знаю в каком месте реестра искать эти данные и как вывести это в label Помогите, пожалуйста... |
25.12.2011, 00:39 | #2 | |
Форумчанин
Регистрация: 08.08.2010
Сообщений: 371
|
не проще использовать
Цитата:
Хакинг - не преступление, а способ выживания.
|
|
25.12.2011, 01:30 | #3 |
Старожил
Регистрация: 12.01.2011
Сообщений: 19,500
|
А вам для каких целей? Даже виндовский Диспетчер Устройств/Device Manager не всегда это правильно это выдает, особенно беспроводные (более того, даже в логитечевском ПО для своих устройств иногда распознается как другая модель).
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом. |
25.12.2011, 13:52 | #4 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Вот програмка которая покажет устройство клавиатуры в списке, можно и другие устройства смотреть реализованнно с помощью SetupApi. http://zalil.ru/32366577
|
25.12.2011, 15:05 | #5 |
Пользователь
Регистрация: 11.04.2011
Сообщений: 11
|
Мне по лабораторной отчитаться надо ((((
Вот задача "написать программу, в которой по нажатию кнопки выводится системная информация" и форма нарисована с 6 кнопками: Дата, Серийный номер, Процессор, Клавиатура, Разрешение, Память. Осталась "Клавиатура", ступор прям какой-то с ней... |
25.12.2011, 15:27 | #6 |
Форумчанин
Регистрация: 16.12.2009
Сообщений: 902
|
Взгляни на этот ключь в реестре в нем разделы клавиатуры какие установлены, {4D36E96B-E325-11CE-BFC1-08002BE10318} а дальше разделы начинаются с 0000 в них инфа о клаве.
Последний раз редактировалось Aliens_wolfs; 25.12.2011 в 15:29. |
25.12.2011, 15:58 | #7 |
Пользователь
Регистрация: 11.04.2011
Сообщений: 11
|
через реестр не получилось, сделала так:
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; Всем спасибо |
25.12.2011, 22:43 | #8 |
Регистрация: 16.07.2011
Сообщений: 3
|
Alien дело есть,зайди в скайп.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вывести на канву раскладку клавиатуры | phphel | Общие вопросы Delphi | 7 | 06.04.2011 13:02 |
вывести нажатую клавишу при каждом сканировании клавиатуры | Dzef | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 11 | 01.03.2011 17:22 |
как вывести спектр на форму? | Roof | Общие вопросы Delphi | 4 | 27.07.2008 17:41 |