获取可用的显示分辨率列表

Question

是否可以像显示首选项一样获取分辨率列表？见附图。我正在使用Delphi XE3

我可以枚举DeviceModeList（来源：http://www.delphifeeds.com/go/s/96231）

var
   cnt : Integer;
   DevMode : TDevMode;
 begin
   cnt := 0;
   while EnumDisplaySettings(nil,cnt,DevMode) do
   begin
     with Devmode do
      ListBox1.Items.Add(Format('%dx%d %d Colors', [dmPelsWidth,dmPelsHeight,Int64(1) shl dmBitsperPel])) ;
     Inc(cnt) ;
   end;
 end; 

第一个问题：

有结论我无法使用Windows显示首选项进行设置。当然我可以削减这个＆lt; 800x600 - 但这是一个糟糕的主意：）

下一个问题：

没有关于分辨率是否显示为灰色的信息（如显示首选项）

对于解决这两个问题的任何帮助，我将不胜感激。

祝你好运！