Connaitre les résolutions disponibles

procedure TForm1.Button1Click(Sender: TObject);
var
DC : THandle; // display context
Bits : Integer; // bits per pixel
HorizRes : Integer; // horizontal resolution
VertRes : Integer; // vertical resolution
DM : TDevMode; // to Save EnumDisplaySettings
ModeNum : LongInt; // video mode number
Ok : Bool;
begin
DC := GetDC(Handle);
Bits := GetDeviceCaps(DC, BITSPIXEL);
HorizRes := GetDeviceCaps(DC, HORZRES);
VertRes := GetDeviceCaps(DC, VERTRES);
// Affiche la résolution actuelle
Edit1.Text := Format('%d bits, %d x %d',[Bits, HRes, VRes]);
ReleaseDC(Handle, DC);
// Affiche toutes les résolutions
ModeNum := 0; // The 1st one
EnumDisplaySettings(Nil, ModeNum, DM);
ListBox1.Items.Add(Format('%d bits, %d x %d',
[DM.dmBitsPerPel, DM.dmPelsWidth, DM.dmPelsHeight]));
Ok := True;
While Ok do
Begin
Inc(ModeNum); // prochain
Ok := EnumDisplaySettings(Nil, ModeNum, DM);
If Ok Then ListBox1.Items.Add(Format('%d bits, %d x %d',
[DM.dmBitsPerPel, DM.dmPelsWidth, DM.dmPelsHeight]));
End;
end;
end.