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

[Perlsau]

Immer das gleiche: Hättest du die Forensuche verwendet, wärst du in Nullkommanix genau darauf gestoßen.
Und in der Entwicklerecke gibt's auch was.

[windos]

Zitat von Perlsau:

Immer das gleiche: Hättest du die Forensuche verwendet, wärst du in Nullkommanix genau darauf gestoßen.
Und in der Entwicklerecke gibt's auch was.

Diese Beiträge habe ich auch schon gelesen, sie sind aber nicht das was ich suche.
Wenn ich die Anzahl der Grafikkarten haben möchte, dann soll als Ergebnis eine Zahl wie z. B. '2' dabei heraus kommen.

[Perlsau]

Zitat von windos:

Zitat von Perlsau:

Immer das gleiche: Hättest du die Forensuche verwendet, wärst du in Nullkommanix genau darauf gestoßen.
Und in der Entwicklerecke gibt's auch was.

Diese Beiträge habe ich auch schon gelesen, sie sind aber nicht das was ich suche.
Wenn ich die Anzahl der Grafikkarten haben möchte, dann soll als Ergebnis eine Zahl wie z. B. '2' dabei heraus kommen.

Kauen kannst du aber noch selber, oder?

[windos]

Leider funktionieren die Beispiele mit Free Pascal nicht.

[Daniel]

Nun ... "funktioniert nicht" ist keine hilfreiche Rückmeldung. Was ist es denn konkret, was nicht funktioniert und wie äußert sich das?
Du wirst hier viele Menschen finden, die Dir gern bei Deinen Problemen helfen, aber etwas musst Du sie dabei schon unterstützen.

[Perlsau]

Zitat von windos:

Leider funktionieren die Beispiele mit Free Pascal nicht.

Via Copy & Paste sicher nicht. Du mußt eben schauen, wie die entsprechenden Sachen in Lazarus heißen, denn Lazarus ist ja nicht Delphi und daher kann man Code zwischen beiden auch nicht 1 zu 1 umsetzen. Ein bissel was selber machen mußt du schon.

[windos]

Hallo zusammen,

nachdem ich im Web folgendes gefunden habe

Code:

type
  TDisplayDevice = record
    cb: DWORD;
    DeviceName: array[0..31] of AnsiChar;
    DeviceString: array[0..127] of AnsiChar;
    StateFlags: DWORD;
    DeviceID: array[0..127] of AnsiChar;
    DeviceKey: array[0..127] of AnsiChar;
  end;

function EnumDisplayDevices: boolean; stdcall; external user32 name 'EnumDisplayDevicesA';

Bekomme ich jetzt bei

Code:

while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do

die Fehlermeldung:
Error: Wrong number of parameters specified for call to "EnumDisplayDevices".

Hat dazu jemand eine Idee?

[Medium]

Du rufst die Funktion mit 4 Parametern auf, deklariert hast du sie aber mit 0.

[hathor]

Die Frage ist (oder war?): Anzahl der Grafikkarten

Und jetzt kommst Du damit...Das ist was Anderes!
Auf die Suchfunktion wurdest Du schon hingewiesen!

http://www.delphipraxis.net/175758-e...ay_device.html