Автор: Dimka Maslov
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка существования домена в глобальной сети

Определяет существование указанного доменного имени
пытаясь определить соответствующий IP-адрес.

Зависимости: WinSock
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 3 июля 2002 г.
***************************************************** }

function CheckDomain(Domain: string): Boolean;
var
 Error: DWORD;
 HostEntry: PHostEnt;
 Data: WSAData;
 Address: In_Addr;
begin
 Result := False;
 Error := WSAStartup(MakeWord(1, 1), Data);
 if Error = 0 then
 begin
 HostEntry := gethostbyname(PChar(Domain));
 Result := GetLastError = 0;
 end;
 WSACleanup();
end;