Foros Club Delphi - Frecuencias de refrescamiento del display soportadas

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)

- - Frecuencias de refrescamiento del display soportadas (https://www.clubdelphi.com/foros/showthread.php?t=60213)

Frecuencias de refrescamiento del display soportadas

Hola a todos....estoy haciendo una aplicacion y necesito saber cual es la maxima frecuencia de refrescamiento soportada por el del display, y en caso de que estas esten limitadas por la resolucion en que se encuentre la pantalla en ese momento (no se si es asi) saberla mapa una resolucion en especifico. He buscado en la API pero no encuntro nada que me lo diga aunque supongo que se pueda obtener ya que windows da la opcion en la configuracion de pantala de mostrar solo las frecuencias que se pueden usar por el monitor que se este usando. Gracis de antemano a los que respondan

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;

Genial...muchas gracias....funciono perfecto :)