Ako sam te dobro razumeo sta ti treba ...
Prvo pokupi staru rezoluciju:
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);
Pa pozovi:
SetScreenResolution(800, 600); // ili vec koja ti treba
Code:
function TfrmMain.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;
Sve sto je besmislenije, utoliko je bolje.
Rezolucija
Registrovani: 1 ( bojanum )
Re: Rezolucija
Re: Rezolucija