Frecuencias de refrescamiento del display soportadas

[[cHackAll]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 Index: Integer;
 Actually, DevNode: TDeviceMode;
begin
 Actually.dmSize := SizeOf(Actually);
 DevNode.dmSize := SizeOf(DevNode);
 ListBox1.MultiSelect := True;
 ListBox1.Clear;
 Index := 0;
 EnumDisplaySettings(nil, $FFFFFFFF, Actually);
 while EnumDisplaySettings(nil, Index, DevNode) do
  begin
   if lstrcmp(@Actually.dmDeviceName, @DevNode.dmDeviceName) = 0 then
    begin
     ListBox1.AddItem(InTtoStr(DevNode.dmPelsWidth)+'x'+IntToStr(DevNode.dmPelsHeight)+'x'+IntToStr(DevNo  de.dmBitsPerPel) + ' at ' + IntToStr(DevNode.dmDisplayFrequency) + ' Hz.', nil);
     ListBox1.Selected[Index] := (Actually.dmPelsWidth = DevNode.dmPelsWidth) and
                                 (Actually.dmPelsHeight = DevNode.dmPelsHeight) and
                                 (Actually.dmBitsPerPel = DevNode.dmBitsPerPel);
    end;
   Inc(Index);
  end;
end;