Cara Mengubah Resolusi Layar Dengan Pemrograman

Terkadang aplikasi yang kita bangun membutuhkan ukuran layar yang sesuai dengan kebutuhan kita, ada cara mudah merubah resolusi layar sbb:


.
.
.

procedure RubahResolusi(XRes, YRes: DWord);
var
   lpDevMode : TDeviceMode;
begin
     EnumDisplaySettings(nil, 0, lpDevMode);

     lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
     lpDevMode.dmPelsWidth := XRes;
     lpDevMode.dmPelsHeight := YRes;
     ChangeDisplaySettings(lpDevMode, 0);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
      RubahResolusi(800,600);
end;

Tweet