عضویت العربیة English
امام جواد علیه‌السلام: عزّت مؤمن در بى نیازى او از مردم است. بحارالأنوار، ج 75، ص 109

تغيير روزوليشن صفحه ويندوز دلفي

تغيير روزوليشن صفحه ويندوز دلفي
دوشنبه 2 اسفند 1389  10:43 ق.ظ

تغيير روزوليشن صفحه ويندوز

 

function SetDisplay1024x768: Boolean;

var

DevMode: TDeviceMode;

begin

EnumDisplaySettings(nil, 0, DevMode);

DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;

DevMode.dmPelsWidth := 1024;

DevMode.dmPelsHeight := 768;

Result := ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY)

= DISP_CHANGE_SUCCESSFUL;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

SetDisplay1024x768;

end;

 

کریمی که جهان پاینده دارد               تواند حجتی را زنده دارد

 

دانلود پروژه و کارآموزی و کارافرینی

mohamadaminsh

mohamadaminsh
کاربر طلایی1
تاریخ عضویت : دی 1389 
تعداد پست ها : 25772
محل سکونت : خوزستان
دسترسی سریع به انجمن ها