تغییر رزولیشن ویندوز در دلفی

سلام دوستان یک کد دلفی اماده کردم که توسط او میتوندی رزولیشن ویندوز در دلفی رو تغییر بدید. میتوانید در سایت بزرگ ام اس پی سافت دانلود کنید.

رزولیشن ویندوز در دلفی

برای تغییر رزولیشن( ابعاد صفحه نمایش)

var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lpDevMode);
lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
end;

function NuevaRes(XRes, YRes: DWord):integer;

به عنوان نمونه

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