get current display refresh rate

[nightburner]

Hi All

I am after a way to get the current refresh rate,
before changing to a different resolution in delphi.
Then at end of program change back to original settings.
Any ideas?

Just at the moment for test purposes I can get the
current width,height and color depth with following
test program.

procedure TForm1.FormActivate(Sender: TObject);
var hdc: Longint;
desktophandle: HWND;
begin
edit1.text:=inttostr(screen.width);
edit2.text:=inttostr(screen.height);
desktophandle:=getdesktopwindow();
hdc:=getdevicecontext(desktophandle);
edit3.text:=inttostr(getdevicecaps(hdc,BITSPIXEL));
end;

 

[martincg]

Have a look at this
[blue]

http://www.entechtaiwan.net/util/multires.shtm

[/blue]
I think you could do what you want with it.