Delphi FAQ

Jak wykryć rodzaj karty graficznej

luKLem

Nie jestem pewien czy to działa na 100% (u mnie działa):

 
uses Registry;
 
var
 reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('Enum\\PCI\\VEN_10DE&DEV_002D&SUBSYS_00000000&REV_15\\000800', false);
    Label1.Caption := reg.ReadString('DeviceDesc');
  finally
     reg.Free;
  end;
FAQ

7 komentarzy

To nie wykrywanie, tylko odczytywanie już wykrytych przez W$ informacji...

mam pytanko, czy to pobiera nazwe karty czy nazwe sterownika?

Po prostu ROTFL nie działaa!!!!!

No to jeśli to nie działa rto JAK WYKRYĆ RODZAJ KARTY GRAFICZNEJ?

A ja tez mam Millenium

Hmm u mnie to jest w:

HKLM\Enum\PCIVEN_10DE&DEV_0171&SUBSYS_00000000&REV_A3\000800

Mam W Millennium

Mam W98 i u mnie nie dziala.Ale to chyba nie wina systemu:)