تحديد الايبي باسهل طريقة

[gladiator16]

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

كود :

uses : Registry;

procedure TForm1.btn1Click(Sender: TObject);
var reg : TRegistry;
begin
reg:= TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
try
   Reg.OpenKey('SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{FA937211-5CDE-41F2-9FD0-6877D0F1628B}',false) ;
   except
     end;
     edt1.Text:=reg.ReadString('DhcpIPAddress');
[COLOR="Red"]     edt1.SelectAll;
     edt1.CopyToClipboard[/COLOR];
end;

التي باللون الاحمر تقوم بنسخ

الايبي يتغير مع خروجي مع الانترنت



اتمنى ان تنال المشاركة اعجابكم

[kachwahed]

السلام عليكم ورحمة الله وبركاته
gladiator16 أهلا ومرحبا
مشاركة طيبة
فقط للتنبيه:
المفتاح {FA937211-5CDE-41F2-9FD0-6877D0F1628B} هو GUID ليس بالضرورة أن يكون بهذا الاسم على جميع الأجهزة
لم أجرب الكود، لكن ينبغي تحرير الكائن Reg في النهاية:

كود :

reg.free

بالتوفيق.

[gladiator16]

بارك الله فيك اخي
عندي سؤال
مافائدة reg.free و هل عدم استعمالها يسبب مشاكل ؟؟
وبخصوص المفتاح انا ايضا لست واثق من وجوده في جميع الاجهزة ؟
انتضر تفاعل الاعضاء يمكن يساعونا على التطوير

[kachwahed]

مافائدة reg.free و هل عدم استعمالها يسبب مشاكل ؟؟

تعريف متغيرات يعني حجز مساحة من الذاكرة...
تدمير الكائن يعني تحرير تلك المساحة المحجوزة ...
عدم استعمالها قد يسبب نزيف MemoryLeaks

+ في نسخ دلفي 2006 فما فوق تم إضافة متغير Boolean في المكتبة System باسم ReportMemoryLeaksOnShutdown يسمح باكتشاف أي استنزاف للذاكرة

انتضر تفاعل الاعضاء يمكن يساعونا على التطوير

هناك موضوع مشابه في المنتدى بطريقة أخرى

استخدم البحث قبل سؤال بارك الله فيك.
بالتوفيق.

[gladiator16]

بارك الله فيك
فهمت فائدتها
اما بخصوص البحث فانا لم تعجبني طريقة ايجاد الايبي بالواببراوز لان البرامج يصبح
لا يفتح الا بعد مرور وقت معين وخاصة اذا اضفتها الى فورم.شاو
هل هناك طريقة اخرى بدون استخدام الواب براوزر

[feelunion]

هل هناك طريقة اخرى بدون استخدام الواب براوزر

السلام عليكم

ينفع اخي الكريم ان شاء الله

برنامج لاظهار الايبي الخارجي والداخلي من خلال مكون Indy

[karamofweb]

شكرا لكن البرنامج يشتغل الا مع دلفي 2010

[غزة لنا]

جيد جدا يا أخي و بارك الله فيك
متميز دوما ان شاء الله