دخول

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;

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

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

[صورة: 20101006033516.jpg]

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة