[Asdef]

Kod:

var inOpen,inURL:HINTERNET; dwBufLen: DWord; buf: pointer; begin inOpen:= InternetOpen('Mozilla',PRE_CONFIG_INTERNET_ACCESS,nil,nil,0); inURL:= InternetOpenURL(inOpen,PChar(adresURL),'Accept: */*', StrLen('Accept: */*'),0,0); if not (inURL <> nil) then exit; dwBufLen:= 1024; GetMem(Buf, dwBufLen); HttpQueryInfo(inURL, HTTP_QUERY_STATUS_CODE,buf, dwBufLen,dwIndex); if StrPas(buf) = '200' then

źródło Migajek z KSE