С юкозом все трудно, ибо там запрещены PHP скрипты заерещены. По поводу первой части - http://delfcode.ru/forum/30-459-1
По поводу второй:
//uses wininet;
Code
function GetIP(szPath :String) :String;
var
hSock :HINTERNET;
hFile :HINTERNET;
lpdwNumberOfBytesRead :DWORD;
Command :array [0..500] of Char;
begin
hSock := InternetOpen(PChar(UserAgent[5]), 0, nil, nil, 0);
hFile := InternetOpenUrl(hSock, PChar(szPath), nil, 0, INTERNET_FLAG_EXISTING_CONNECT, 0);
InternetReadFile(hFile, @Command, Length(Command), lpdwNumberOfBytesRead);
Result := Copy(Command,1,lpdwNumberOfBytesRead);
InternetCloseHandle(hSock);
end;
