Hi,
ik ben bezig met een programma. Het programma zet in het begin de resolutie meteen op 1024x768. Maar nu verandert hij ook meteen de hertz naar 60, dit moet dus niet. Is het mogelijk om de frequentie op 75 hertz te zetten met delphi?
Hieronder mijn stukje code om de resolutie te veranderen
ik ben bezig met een programma. Het programma zet in het begin de resolutie meteen op 1024x768. Maar nu verandert hij ook meteen de hertz naar 60, dit moet dus niet. Is het mogelijk om de frequentie op 75 hertz te zetten met delphi?
Hieronder mijn stukje code om de resolutie te veranderen
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| var
OldWidth, OldHeight: integer;
function SetScreenResolution(Width, Height: integer): Longint;
var
DeviceMode: TDeviceMode;
begin
with DeviceMode do begin
dmSize := SizeOf(TDeviceMode);
dmPelsWidth := Width;
dmPelsHeight := Height;
dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
end;
Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
SetScreenResolution(1024, 768);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SetScreenResolution(OldWidth, OldHeight);
end; |