Anzahl der Grafikkarten

[windos]

Hallo zusammen,

wie kann ich über API mit Free Pascal / Delphi die Anzahl der im Rechner verbauten Grafikkarten ermitteln?

Mit Soundkarten geht es einfach:

Code:

function IsSoundKarte: longint; stdcall; external 'winmm.dll' Name 'waveOutGetNumDevs';

procedure subAnzahlSoundkarten; inline;
var
  strPuffer: string;

begin
  ...
  strPuffer := IntToStr(IsSoundKarte);
  ...
end;

Gibt es soetwas auch für Grafikkarten?

Grüsse an alle