matinebi
شنبه 17 فروردین 1387, 12:30 عصر
procedure SetResolution(ResX, ResY: DWord);
var
lDeviceMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lDeviceMode);
lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lDeviceMode.dmPelsWidth :=ResX;
lDeviceMode.dmPelsHeight:=ResY;
ChangeDisplaySettings(lDeviceMode, 0);
end;
با سلام
کد زیر چه تغییری میکند Resolution 800*600لطفا راهنمایی کنید برای
را کجای کد باید بنویسم procedureو این
var
lDeviceMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lDeviceMode);
lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lDeviceMode.dmPelsWidth :=ResX;
lDeviceMode.dmPelsHeight:=ResY;
ChangeDisplaySettings(lDeviceMode, 0);
end;
با سلام
کد زیر چه تغییری میکند Resolution 800*600لطفا راهنمایی کنید برای
را کجای کد باید بنویسم procedureو این