VPF::название устройств - Форум программистов

gonzales

Дата 15.11.2006, 01:16 (ссылка)

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

Загрузка ...

Бывалый

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

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

Доброе время суток.

Не подскажет ли общественность, как определить название устройства по известным VendorID и DeviceID.
Пробовал через реестр, но очень муторно.

Заранее спасибо

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

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

gonzales

Дата 15.11.2006, 15:53 (ссылка)

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

Загрузка ...

Бывалый

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

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

ну и ладно, сам сделал

Код


procedure TForm1.Button3Click(Sender: TObject);
var
r:tregistry;
ts,ts1:tstringlist;
i:integer;
begin
ts:=tstringlist.Create;
ts1:=tstringlist.Create;
 r:=tregistry.Create;
 r.RootKey:=HKEY_LOCAL_MACHINE;
 r.OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Enum\PCI');
 r.GetKeyNames(ts);
 for i:=0 to ts.Count-1 do
  if copy(ts[i],0,17)='VEN_'+edit1.Text+'&DEV_'+edit2.Text then
   begin
    r.CloseKey;
    r.OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Enum\PCI\'+ts[i]);
    r.GetKeyNames(ts1);
    r.CloseKey;
    r.OpenKeyReadOnly('\SYSTEM\CurrentControlSet\Enum\PCI\'+ts[i]+'\'+ts1[0]);
    label1.Caption:=r.ReadString('DeviceDesc');
   end;
end;

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

- мастер, мастер, запорол..., все четыре запорол!!!- я ж тебе только три давал!!!???- да я и образец запорол!!!!

Yanis

Дата 15.11.2006, 17:03 (ссылка)

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

Загрузка ...

Эксперт

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

Репутация: 72
Всего: 111

gonzales
Так всё таки, чем не устраивает получение инфы через реестр?

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

*щёлк*

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