Salut,
Voila ,Comment peut on detecter qu'elle carte graphique est utilisée sur un pc et ces differentes caracteristique.
Meric
Salut,
Voila ,Comment peut on detecter qu'elle carte graphique est utilisée sur un pc et ces differentes caracteristique.
Meric
une idée a été trouvé depuis ? parce qu'en faisant une recherche je ,e trouve rien
Bonjour,
Voila un petit bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45 procedure TForm1.Button1Click(Sender: TObject); var lpDisplayDevice: TDisplayDevice; dwFlags,cc: DWORD; DC : THandle; // Display context Bits : Integer; // Bits per pixel HRes : Integer; // Horizontal resolution VRes : Integer; // Vertical resolution DM : TDevMode; // To Save EnumDisplaySettings ModeNum : LongInt; // Video Mode Number Ok : Bool; tsl : tstringlist ; s : string ; begin // list display devices lpdisplaydevice.cb := sizeof(lpdisplaydevice); dwflags := 0; cc:= 0; while EnumDisplayDevices(nil, cc, lpDisplayDevice , dwFlags) do begin inc(cc); showmessage(lpdisplaydevice.DeviceString); end; tsl:=tstringlist.create ; // Get current video mode DC := Canvas.Handle; Bits := GetDeviceCaps(DC, BITSPIXEL); HRes := GetDeviceCaps(DC, HORZRES); VRes := GetDeviceCaps(DC, VERTRES); tsl.add('Current video mode :'+Format('%d bits, %d x %d',[Bits, HRes, VRes])); // Show all modes available (i.e. supported by the driver) ModeNum := 0; // The 1st one EnumDisplaySettings(Nil, ModeNum, DM); tsl.add('Available mode :'+Format('%d bits, %d x %d',[DM.dmBitsPerPel, DM.dmPelsWidth, DM.dmPelsHeight])); Ok := True; While Ok do begin Inc(ModeNum); // Get next one OK := EnumDisplaySettings(Nil, ModeNum, DM); if OK then s:='Available mode :'+Format('%d bits, %d x %d',[DM.dmBitsPerPel, DM.dmPelsWidth, DM.dmPelsHeight]) ; if tsl.indexof(s)<0 then tsl.Add(s) ; end; showmessage(tsl.Text) ; tsl.Free ; end;
" Le croquemitaine ! Aaaaaah ! Où ça ? " ©Homer Simpson
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager