Connaitre le nom d'une carte graphique [Résolu]

Signaler
Messages postés
76
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
10 août 2010
-
cs_PHIL63
Messages postés
76
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
10 août 2010
-
Bonjour à tous,
je souhaiterais pouvoir récupérer dans un TLabel le nom et le modèle de la carte graphique installée sur l'ordinateur.
J'ai bien trouvé un composant pour les ressources système mais celui-ci ne me donne pas la carte graphique installée .
Si quelqu'un pouvais m'aider ce serait sympa.
merci.

Philippe DROUET

2 réponses

Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
Salut, pose un TMemo et un TButton (pour le test), puis sur le OnClick du bouton mets :


procedure TForm1.Button1Click(Sender: TObject);

var

lpDisplayDevice: TDisplayDevice;

dwFlags: DWORD;

cc: DWORD;

begin

memo1.Clear;

lpDisplayDevice.cb := sizeof(lpDisplayDevice);

dwFlags := 0;

cc:= 0;

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

begin

Inc(cc);

memo1.lines.add(lpDisplayDevice.DeviceString); end;

end;



Tu devrais trouver ton bonheur
Messages postés
76
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
10 août 2010

Ça fonctionne nickel, je te remercies beaucoup.

Philippe DROUET