چطور می توان رزولوشن صفحه نمایش را از با برنامه نویسی تغییر داد؟

شاید شما هم برای اینکه برنامه تان بتواند کامل د مناسب نمایش داده شود، نیاز دارید که در یک اندازه خاص از صفحه نمایش کار کنید.
برای اینکار می توانید اندازه رزولوشن صفحه را در هنگام اجرا تغییر دهید.
برنامه زیر به شما کمک خواهد کرد تا با کمک API ویندوز اینکار را در دلفی انجام دهید

 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;

با کمک سورس کد زیر هم میشه این روتین را صدا زد :

 var 

    OldWidth, OldHeight: integer; 



  procedure TForm1.Button1Click(Sender: TObject); 

  begin 

    OldWidth := GetSystemMetrics(SM_CXSCREEN); 

    OldHeight := GetSystemMetrics(SM_CYSCREEN); 

    SetScreenResolution(800, 600); 

  end;