Discussion :

[patrice@]

Bonjour à tous,
Y a t-il moyen de récupérer toutes les résolutions disponibles pour un écran ?
(Pas la résolution actuelle, ça c'est facile à trouver)
Merci de l'aide

[Paul TOTH]

j'ai utilisé ça dans un projet où cbModes est une combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  index: Integer;
  mode : TDevMode;
  str  : string;
begin
  index := 0;
  while EnumDisplaySettings(nil, index, mode) do
  begin
    Inc(index);
    Str := IntToStr(mode.dmPelsWidth) + 'x' + IntToStr(mode.dmPelsHeight);
    if cbModes.Items.IndexOf(Str) < 0 then
      cbModes.Items.Add(Str);
  end;

[patrice@]

Super! Merci beaucoup.