display = WinApi.GetCurrDisplaySettings();
if (display ~= nil) then
if display.Width~=1024 and display.Height~=768 then
WinApi.SetDisplaySettings(1024, 768, display.Bits, display.Frequency);
end
end
به جای display.Bits بیت مانیتور 32 یا 16 یا 8 را بنویس و به جای display.Frequency فرکانس مانیتور را بنویس اگر هم ننوشتی دستور میاد فرکانس و بیت را به همان حالتی که می باشد تنظیم می کند
2. در On Shutdown هم بنویس :
WinApi.SetDisplaySettings(display.Width, display.Height, display.Bits, display.Frequency);
تا تمام تنظیمات به حالت اول باز گردد...
همچنین می توانی برای full screen شدن در خط آخر OnStartup بنویسی:
Window.SetSize(Application.GetWndHandle(), 1024, 768)
Window.SetPos(Application.GetWndHandle(), 0, 0)
همچنین با DLL های ژولی جان نیز می توان این کار ها را انجام داد...
مثال:
کد:
http://two.xthost.info/amirashkan/FullScreen.apz
خدا حافظ