Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > название устройств


Автор: gonzales 15.11.2006, 01:16
Доброе время суток.

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

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

Автор: gonzales 15.11.2006, 15:53
ну и ладно, сам сделал

Код

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
gonzales
Так всё таки, чем не устраивает получение инфы через реестр?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)