Wie die verwendete Grafikkarte ermitteln ?

[kalmi01]

Hallo,

vielleicht kann mir jemand einen Tip geben.

Die Aufgabenstellung: ermitteln der derzeit aktiven Grafikkarte (Intel/ATI/nVidia,..)

Das Problem: Auf dem Rechner wurden mehrere Grafikkarten installiert.
Eine On-Board-Grafik ist noch vorhanden, aber deaktiviert.
Eine ATI-Karte war ebenfalls mal installiert, dito eine nVidia.

D.h. in der Registry finde ich von allen 3 Grafikkarten Einträge.
Jetzt muss ich aber wissen, ob die nVidia gerade läuft.

Bin für jede Anregung dankbar.

Tschau
Michael

[Luckie]

WMI wäre wohl das beste.

[HaZe]

hi

wer suchet der findet
http://www.delphipraxis.net/internal...ht=grafikkarte

cya

HaZe

[Luckie]

WMI würde ich aber trotzdem für die bessere Wahl halten.

[kalmi01]

Danke HaZe,

frage mich allerdings, warum ich den Artikel nicht gefunden habe ?

Wer die richtigen Suchbegriffe verwendet ist klar im Vorteil

Gruß und danke
Michael

[HaZe]

grafikkarte hat 2 seiten results gebracht


cya

HaZe

[Robert Marquardt]

Zitat von Luckie:

WMI würde ich aber trotzdem für die bessere Wahl halten.

Das hat den Nachteil das es nur unter XP functioniert.
Ich wuerde das Setup API oder Config Manager API nehmen.

[Luckie]

Ähm, und wie so geht dass dann auch unter Windows 2000 ohne irgendwelche Systemänderungen, wie Nachinstallationen? WMI ist sogar auf ME verfügbar. Nur unter Windows 98 muss was nachinstalliert werden.

[Muetze1]

Moin!

Vielleicht reicht dir sowas schon als Ansatz ohne WMI:

Einfach eine App mit einer ListBox drauf (lbMonitorList) und dort dann folgendes in's FormCreate:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
Var
  Cntr        : Cardinal;
  Info        : TDisplayDevice;
  AdapterName : PChar;
  OldPos      : Integer;
Const
  DISPLAY_DEVICE_ATTACHED_TO_DESKTOP = $00000001;
  DISPLAY_DEVICE_MULTI_DRIVER        = $00000002;
  DISPLAY_DEVICE_PRIMARY_DEVICE      = $00000004;
  DISPLAY_DEVICE_MIRRORING_DRIVER    = $00000008;
  DISPLAY_DEVICE_VGA                 = $00000010;
Begin
  lbMonitorList.Items.Add('------------------ Displays ----------------');

  Cntr := 0;
  Info.cb := SizeOf(Info);
  While EnumDisplayDevices(Nil, Cntr, Info, 0) Do
  Begin
    lbMonitorList.Items.Add('* Device '+IntToStr(Cntr)+':');
    lbMonitorList.Items.Add('    DeviceName  : '+Info.DeviceName);
    lbMonitorList.Items.Add('    DeviceString: '+Info.DeviceString);

    OldPos := lbMonitorList.Items.Add('    StateFlags:   ');

    If ( Info.StateFlags And DISPLAY_DEVICE_ATTACHED_TO_DESKTOP ) = DISPLAY_DEVICE_ATTACHED_TO_DESKTOP Then
      lbMonitorList.Items.Add('      + Display Device Attached To Desktop')
    Else
      lbMonitorList.Items.Add('      - Display Device Attached To Desktop');

    If ( Info.StateFlags And DISPLAY_DEVICE_MULTI_DRIVER ) = DISPLAY_DEVICE_MULTI_DRIVER Then
      lbMonitorList.Items.Add('      + Display Device Multi Driver')
    Else
      lbMonitorList.Items.Add('      - Display Device Multi Driver');

    If ( Info.StateFlags And DISPLAY_DEVICE_PRIMARY_DEVICE ) = DISPLAY_DEVICE_PRIMARY_DEVICE Then
      lbMonitorList.Items.Add('      + Display Device Primary Device')
    Else
      lbMonitorList.Items.Add('      - Display Device Primary Device');

    If ( Info.StateFlags And DISPLAY_DEVICE_MIRRORING_DRIVER ) = DISPLAY_DEVICE_MIRRORING_DRIVER Then
      lbMonitorList.Items.Add('      + Display Device Mirroring Driver')
    Else
      lbMonitorList.Items.Add('      - Display Device Mirroring Driver');

    If ( Info.StateFlags And DISPLAY_DEVICE_VGA ) = DISPLAY_DEVICE_VGA Then
      lbMonitorList.Items.Add('      + Display Device VGA')
    Else
      lbMonitorList.Items.Add('      - Display Device VGA');


    AdapterName := StrAlloc(SizeOf(Info.DeviceName));
    StrCopy(AdapterName, Info.DeviceName);
    EnumDisplayDevices(AdapterName, 0, Info, 0);
    lbMonitorList.Items.Insert(OldPos, '    Monitorname : ' + Info.DeviceString);
    StrDispose(AdapterName);

    Inc(Cntr);
  End;
End;

MfG
Muetze1