nightburner
Programmer
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;
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;