{ **** UBPFD *********** by delphibase.endimus.com **** >> Проверка существования домена в глобальной сети Определяет существование указанного доменного имени пытаясь определить соответствующий IP-адрес. Зависимости: WinSock Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург Copyright: Dimka Maslov Дата: 3 июля 2002 г. ***************************************************** } functionCheckDomain(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
;