تحديد Ip الخاصة بالاتصال الانترنت, ليس IP الشبكة المحلبة

[heros]

السلام عليكم
اضافة هذا الكود 100% دلفي و اصغر

PHP كود :

function GetIPAddress: string;
var
  phoste:PHostEnt;
  Buffer:array[0..100] of char;
  WSAData:TWSADATA;
begin
  result:='';
  if WSASTartup($0101, WSAData) <> 0 then exit;
  GetHostName(Buffer,Sizeof(Buffer));
  phoste:=GetHostByName(buffer);
  if phoste = nil then
  begin
    result:='127.0.0.1';
  end
  else
    result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
  WSACleanup;
end; 


و الذي قمت به ايضا يعمل و بارك الله فيك على المعلومة