أخوكم في ورطه

السلام عليكم أخي يمكنك إستعمال ال DierctX

و سوف تعمل عادي إن شاء الله

السلام عليكم.

هذا بروسيجر كنت قد كتبته سابقا نسخته كما هو من مكتبتي الخاصة.

حيث أنه يمكنك تمرير بارامترات للبروسيجر و سوف يقوم باختبار فيما إذا كان الدقة المطلوبة موجودة في النظام أم لا في حال توافرها سوف يقوم بتطبيقها مباشرة.

procedure TFrmMain.Set_Resolution(pBits, pWidth, pHeight: Integer);
var
  i : integer;
  devmode : tDeviceMode;
  hasMode : boolean;
begin
  i := 0;
  hasMode := false;
  while EnumDisplaySettings(nil, i, devmode) do
  begin
    with devmode do
    begin
      if (dmBitsPerPel = pBits) and  // 8  or 16 or 24 or 32 ......
         (dmPelsWidth=pWidth) and    // 640 or 800 or 1024 or 1280 ......
         (dmPelsHeight=pHeight)      // 480 or 600 or 768  or 1024 .......
      then
         hasMode := true;
    end;
    inc(i);
  end;

  if hasMode then
   with devmode do
   begin
     dmBitsPerPel := pBits;   // 8  or 16 or 24 or 32 ......
     dmPelsWidth := pWidth;   // 640 or 800 or 1024 or 1280 ......
     dmPelsHeight := pHeight; // 480 or 600 or 768  or 1024 .......
     dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;

     ChangeDisplaySettings(devmode, 0);
   end else
     ShowMessage('Sorry,  cannot run this program ');
end;

جيد

وهذا مثال وجدته , لعله يزيد من الشعر بيت

D_Siting.zip

خذ هذا المثال أيضاً

تغيير دقة عرض الشاشة.exe

شكرا شباب يبدو اني كنت بحاجة ايضا لهذه الشيفرة

015 السلام عليكم

الحمد لله لقد انتهت المشكله بفضل الله اولا ثم الردود المفيده التي تم ارسالها

اشكر من قام بالرد واشكركم جميعا

012