Показать сообщение отдельно
  #5  
Старый 30.01.2006, 13:21
Аватар для Ross
Ross Ross вне форума
Активный
 
Регистрация: 15.10.2005
Адрес: Казань
Сообщения: 250
Репутация: 30
Сообщение

Ладно, с трафиком разбирусь потом. А пока, для меня вожно - это определить, комп подключён к интернету или нет? Нашёл один пример, но не могу понять одну переменную:

procedure TForm1.Button1Click(Sender: TObject);
var
h:boolean;
begin
h:= wininet.InternetCheckConnection(nil,$00000001,0);
if
h = True then
Label1.Caption:='Соеденение с сервером 127.0.0.1 установлено.'
else
if h = false
then
Label1.Caption:='Соеденения с сервером 127.0.0.1 нет.';
end;

Здесь wininet - что за переменная, не понял.
Ответить с цитированием