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

Messages postés
76
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
10 août 2010
- - Dernière réponse : cs_PHIL63
Messages postés
76
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
10 août 2010
- 7 oct. 2008 à 15:07
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
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
12
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 201 internautes nous ont dit merci ce mois-ci

Commenter la réponse de JulioDelphi
Messages postés
76
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
10 août 2010
0
Merci
Ça fonctionne nickel, je te remercies beaucoup.

Philippe DROUET
Commenter la réponse de cs_PHIL63