يعني الواحد بيكون بدو تعليمة وحدة منشان يعرفها لازم يشوف كل المواقع يلي ذكرها الأستاذ زاهر وإذا سأل حدا عن هالتعليمة بيمتعض وبينطمز وبيتدايق !!!لكن شو فائدة هالمنتدى

#83 أبريل 2004 في 19:29

فعلاً مالك حق يا زاهر

#93 أبريل 2004 في 20:23

لا تتضايقوا

هذا كود قد يفي بالغرض واذا اردت استزاده اخبرني ...!

var
  DC : hDC;
  theCanvas : TCanvas;
  hWnd : THandle;
  bm : TBitmap;
  r : TRect;
begin
  hWnd := GetDesktopWindow;
  DC := GetDC (hWnd);
  theCanvas := TCanvas.Create;
  theCanvas.Handle := DC;
  bm := TBitmap.Create;
  bm.Width := Screen.Width;
  bm.Height := Screen.Height;
  GetWindowRect (hWnd, r);
  bm.Canvas.CopyRect (r, theCanvas, r);
  ReleaseDC (hWnd, DC);
  theCanvas.Free;
  // عالج الصورة
  bm.SaveToFile ('hello.bmp');
  bm.Free;
end;

وهذا اخر

{ التقط صورة مربعة للشاشة... }
function CaptureScreenRect( ARect: TRect ): TBitmap;
var
  ScreenDC: HDC;
begin
  Result := TBitmap.Create;
  with Result, ARect do
  begin
    Width := Right - Left;
    Height := Bottom - Top;
    ScreenDC := GetDC( 0 );
    try
      BitBlt( Canvas.Handle, 0, 0, Width, Height, ScreenDC,
        Left, Top, SRCCOPY );
    finally
      ReleaseDC( 0, ScreenDC );
    end;
  end;
end;
{ واخرى هنا... }
function CaptureScreen: TBitmap;
begin
  with Screen do
    Result := CaptureScreenRect( Rect( 0, 0, Width, Height ));
end;

#103 أبريل 2004 في 21:20

هاد الحكي يلي يسر الخاطر تسلم إيدك يا أخ Sal1150

#1127 مارس 2007 في 01:07

بارك الله فيك يا اخي الكريم و أدامك الله لخدمتك العلم

خيركم من تعلم القرأن و علمه

#1227 مارس 2007 في 05:12

السلام عليكم

طلب صغير اكتبو اسم الاخ zaher كما هو بالانكليزي مثلما ورد

وشكرا لكم ان تم تلبية الطلب ام لا

اعتذر

والسلام

اصحيح ان العرب في هذه الحياة.......هذا بالاسم فقط

لالالالابالاحلام ....او..لاكمال العدد؟؟؟؟؟؟

هذا الموضوع مغلق.

مواضيع مشابهة

اخذ صورة من الشاشة1 رد · 14 سبتمبر 2005
أخذ صورة للشاشة1 رد · 11 مارس 2005
أود معلومات عن كيفية أخذ صورة للشاشة3 رد · 19 مايو 2007
طلب دمج كود أخذ صورة للشاشة وكود تحويل الصورة10 رد · 11 يونيو 2007
أزى أخذ جزء من صورة0 رد · 15 يناير 2008
اخذ صورة0 رد · 24 يناير 2014