[Delphi] Hoe kan ik alle refreshrates van een monitor vinden

[Verwijderd]

Ik moet een lijstje hebben met alle refreshrates van een monitor.

Waar haal ik die weg?

[Glimi]

Heb je Welkom in P&W -> Quickstart (update 2/10/2002) gelezen? We vereisen voor een topic hier iets meer dan een vraag van 2 regels

We willen ook weten wat jij geprobeerd hebt, wat wel lukte en wat niet ed. Dit doen we niet om je te pesten maar omdat we inzet van jouw kant willen zien (we zijn immers geen helpdesk) maar ook zodat jij geen tips krijgt over dingen die je al geprobeerd hebt

Zou je dus je post willen aanvullen met de gevraagde info?

[ Voor 7% gewijzigd door Glimi op 06-03-2003 14:56 ]

[.oisyn]

Hoe kan ik alle refreshrates van een monitor vinden

staat in de handleiding van je monitor

[Verwijderd]

Gewoon standaard Win32A API werk
DEVMODE struct zal wel wonderen doen

dmDisplayFrequency -> refresh rate in hertz

[ Voor 65% gewijzigd door Verwijderd op 06-03-2003 15:51 ]

[Verwijderd]

Nou, ik heb google helemaal dood gelezen ongeveer, maar kon dus echt niks vinden.

Tevens in de help van delphi en de win32 users reference gezocht, vond ie ook absoluut niks.

Excuus voor de botte vraagstelling

[Verwijderd]

Tis namelijk de bedoeling dat ik een lijst krijg met alle mogelijke refreshrates, voor stimulus-respons applicaties bij een psychologische afdeling van de rijks universiteit Groningen.

[.oisyn]

met GetDisplaySettings () kun je iig de huidige refreshrate opvragen. Een lijst kun je (zonder DirectX) niet echt opvragen, maar je kunt wel modii testen met ChangeDisplaySettings (), en dus zo bepalen welke refreshrates worden ondersteund voor een bepaalde resolutie

[Verwijderd]

okee bedankt.

[Tomatoman]

Het kan wel degelijk met behulp van EnumDisplaySettings. Uit The Tomes of Delphi 3: Win32 Graphics API van Larry Diehl:

Delphi:

procedure TForm1.Button1Click(Sender: TObject);
var
  DeviceInfo: TDevMode;         // holds device information
  DeviceCount: Integer;         // tracks the number of display modes
begin
  {initialize the tracking variable}
  DeviceCount := 0;
  {enumerate all display modes for the current display device}
  while EnumDisplaySettings(NIL, DeviceCount, DeviceInfo) do
  begin
    {display the relevent information for the display mode}
    ListBox1.Items.Add('Device '+IntToStr(DeviceCount)+' -');
    ListBox1.Items.Add('Pixels/Inch: '+IntToSTr(DeviceInfo.dmLogPixels));
    ListBox1.Items.Add('Bits/Pixel: '+IntToStr(DeviceInfo.dmBitsPerPel));
    ListBox1.Items.Add('Pixel Width: '+IntToStr(DeviceInfo.dmPelsWidth));
    ListBox1.Items.Add('Pixel Height: '+IntToStr(DeviceInfo.dmPelsHeight));
    {indicate the display mode type}
    case DeviceInfo.dmDisplayFlags of
      DM_GRAYSCALE:  ListBox1.Items.Add('Display Mode: Grayscale');
      DM_INTERLACED: ListBox1.Items.Add('Display Mode: Interlaced');
    end;
    {indicate the refresh rate}
    if (DeviceInfo.dmDisplayFrequency=0)or(DeviceInfo.dmDisplayFrequency=1) then
      ListBox1.Items.Add('Refresh Rate: Hardware Default')
    else
      ListBox1.Items.Add('Refresh Rate: ' +
        IntToStr(DeviceInfo.dmDisplayFrequency)+' hrz');
    {add a blank line and increment the tracking variable}
    ListBox1.Items.Add('');
    Inc(DeviceCount);
  end;
end;

[Verwijderd]

Bedankt Tomatoman! Hier heb ik echt wat aan..

Je laatste heb ik ook gebruikt. Thanks!