-
На форуме работает ручное одобрение пользователей. Это значит, что, если Ваша причина регистрации не соответствует тематике форума, а также Вы используете временную почту, Ваша учётная запись будет отклонена без возможности повторной регистрации. В дальнейшем - пожизненная блокировка обоих аккаунтов за создание мультиаккаунта.
-
Мы вновь вернули telegram чат форуму, вступайте, общайтесь, задавайте любые вопросы как администрации, так и пользователям!
Ссылка: https://t.me/chat_dark_time
Хуйня так-то
тру - есть
фалс - нет
Код:
Function IsConnect:bool;
var
info: WSADATA;
sin: sockaddr_in;
sHwnd: integer;
begin
WSAStartup(makeword(1,1),info);
sHwnd :=Socket(AF_INET, SOCK_STREAM, 0);
sin.sin_family:=AF_INET;
sin.sin_port:=htons(80);
sin.sin_addr.S_addr:=inet_addr('134.170.188.221');
if connect(sHwnd, sin, sizeof(sin)) = SOCKET_ERROR then begin
result :=false;
end else begin
result :=true;
end;
Closesocket(sHwnd);
WSACleanup;
end;фалс - нет
Можешь попробовать забить пинг до любого сайта, если ошибка - то нет подключения. Не самый элегантный способ, но как вариант.