سلام
چطوری میشه یه resolution کاربر رو تغییر داد
مثلا موقعی که برنامه رو برای 1024 * 768 طراحی کردی
و محیط کاربر 800 * 600 باشه از داخل برنامه resolution رو تغییر
داد
Printable View
سلام
چطوری میشه یه resolution کاربر رو تغییر داد
مثلا موقعی که برنامه رو برای 1024 * 768 طراحی کردی
و محیط کاربر 800 * 600 باشه از داخل برنامه resolution رو تغییر
داد
نقل قول:
نوشته شده توسط mahdi bg
سلام
روش ساده (بدون در نظر گرفتن فركانس)
با فركانس :کد: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;
کد:DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or dm_DisplayFrequency;
DevMode.dmPelsWidth := Width_;
DevMode.dmPelsHeight := Height_;
DevMode.dmDisplayFrequency := Frequency_;
ChangeDisplaySettings(DevMode, 0);
Result := ReturnString(PChar(OldRes));
سلام
از توجه تون ممنوننقل قول:
نوشته شده توسط NoneForce
خیلی کمکم کردی
سلام
فقط یه سوال
اگه مانیتور کاربر یا کارت گرافیک کاربر
این Resulation رو پشتیبانی نکنه
چه اتفاقی می افته
سلامنقل قول:
نوشته شده توسط mahdi bg
تابع يك مقدار برميگرداند كه ميتواند آنرا چك كنيد
کد:
DISP_CHANGE_SUCCESSFUL The settings change was successful.
DISP_CHANGE_RESTART The computer must be restarted in order for the graphics mode to work.
DISP_CHANGE_BADFLAGS An invalid set of flags was passed in.
DISP_CHANGE_FAILED The display driver failed the specified graphics mode.
DISP_CHANGE_BADMODE The graphics mode is not supported.
DISP_CHANGE_NOTUPDATED Windows NT only: Unable to write settings to the registry.
سلام
خیلی خیلی ممنوننقل قول:
نوشته شده توسط NoneForce
واقعا کمکم کردی
سلام
سوال آخر در مورد Resolution
اگه بخواهیم بفهمیم Resolution جاری سیستم
چنده
بایدچکار کرد؟
اگه تابعی هستش
قالبی (نتیجه) که بر می گردونه چیه؟ عدد یا رشته و یا ....