من مكتبة تمام

المشاركة الاولى رائعة شكرا

يا حبذا لو تضعها في قسم الاكواد الفعالة والنادرة

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

/index.ph...56214&hl=الشاشة

شكرا كرة اخرى

و إليكم البرنامج التالي الذي يقوم بعرض المنطقة

الموجودة تحت مؤشر الفأرة مع التكبير

أخي romanof

لقد وضعت الان برنامجا جديدا و هو رائع جدا جدا جدا

حمل البرنامج و تأكد اذا كان مكررا فاحذفه فنحن إن شاء الله أخوة

]

colortest_src.zip

هل ترغب بالوصول إلى البيوس Bios

و القراءة في محتوياتها و من خلال ديلفي

إليك ما تريد

ملاحظة : لقد جربت الشيفرة على اكس بي و هي تعمل تماما

BiosHelp.zip

يمتاز نظام التشغيل ويندوز اكس بي

بالبالون الصغير الذي يظهر قرب الساعة في منطقة الإعلام

اذا كنت ترغب بدعم برنامجك بهذه الميزة إليك البرنامج التالي

Ballon_EXE.zip

Ballon_Code.zip

ذكر الأخ رومانوف في موضوع سابق المشاكل الناجمة عن تدوير الأرقام

إليكم بعض الدوال التي تتيح التحكم في تدوير اللأرقام

function Sgn(X: Extended): Integer;
// Returns -1, 0 or 1 according to the
// sign of the argument
begin
  if X < 0 then
    Result := -1
  else if X = 0 then
    Result := 0
  else
    Result := 1;
end;


function RoundUp(X: Extended): Extended;
// Returns the first integer greater than or
// equal to a given number in absolute value
// (sign is preserved).
//   RoundUp(3.3) = 4    RoundUp(-3.3) = -4
begin
  Result := Int(X) + Sgn(Frac(X));
end;


function RoundDn(X: Extended): Extended;
// Returns the first integer less than or
// equal to a given number in absolute
// value (sign is preserved).
//   RoundDn(3.7) = 3    RoundDn(-3.7) = -3
begin
  Result := Int(X);
end;


function RoundN(X: Extended): Extended;
// Rounds a number "normally": if the fractional
// part is >= 0.5 the number is rounded up (see RoundUp)
// Otherwise, if the fractional part is < 0.5, the
// number is rounded down (see RoundDn).
//   RoundN(3.5) = 4     RoundN(-3.5) = -4
//   RoundN(3.1) = 3     RoundN(-3.1) = -3
begin
(*
  if Abs(Frac(X)) >= 0.5 then
    Result := RoundUp(X)
  else
    Result := RoundDn(X);
*)
  Result := Int(X) + Int(Frac(X) * 2);
end;


function Fix(X: Extended): Extended;
// Returns the first integer less than or
// equal to a given number.
//   Int(3.7) = 3          Int(-3.7) = -3
//   Fix(3.7) = 3          Fix(-3.1) = -4
begin
  if (X >= 0) or (Frac(X) = 0) then
    Result := Int(X)
  else
   Result := Int(X) - 1;
end;


function RoundDnX(X: Extended): Extended;
// Returns the first integer less than or
// equal to a given number.
//   RoundDnX(3.7) = 3     RoundDnX(-3.7) = -3
//   RoundDnX(3.7) = 3     RoundDnX(-3.1) = -4
begin
  Result := Fix(X);
end;


function RoundUpX(X: Extended): Extended;
// Returns the first integer greater than or
// equal to a given number.
//   RoundUpX(3.1) = 4     RoundUpX(-3.7) = -3
begin
  Result := Fix(X) + Abs(Sgn(Frac(X)))
end;


function RoundX(X: Extended): Extended;
// Rounds a number "normally", but taking the sign into
// account: if the fractional part is >= 0.5 the number
// is rounded up (see RoundUpX)
// Otherwise, if the fractional part is < 0.5, the
// number is rounded down (see RoundDnX).
//   RoundX(3.5) = 4     RoundX(-3.5) = -3
begin
(*
  if Abs(Frac(X)) >= 0.5 then
    Result := RoundUpX(X)
  else
    Result := RoundDnX(X);
*)
  Result := Fix(X + 0.5);
end;

المعرفات الفريدة عالميا GUID

ما هي إنها أرقام تعرف الكائنات بشكل فريد

و هي عبارة عن أرقام ست عشرية مجموعة من 8 و 4 و 4 و 4 و 12 عددا (0 حتى 9 و A حتى F )

القاطقعة تقسم كل مجموعة أعداد و هناك أقواس ملتوية تحيط الرقم بأكمله

مثال : {eec97550-47a9-11cf-b952-00aa0051fe20}

عند توليد معرف فإن المعرف يكون فريدا أي لا يمكن أن يتكرر أبدا

كيف أقوم بذلك من خلال ديلفي

procedure TForm1.Button1Click(Sender: TObject);
var
h:HRESULT;
MyGUID:TGUID;
begin
h:=CreateGUID(MyGUID);
edit1.Text:=GUIDToString(MyGUID)

end;

GUID_EXE.zip

GUid_Code.zip