statusbar (сообщение) и таймер

[shilovec5377]

Привет всем. есть такой вопросик, при запуске проги в (statusbar) выводится инфа (в сети комп или не в сети), есть подключение к нету. когда нет подключен выводит (в сети), если нет, то наоборот.
Помогите сделать так, чтобы при запущеной проге, при отключения нета, менялось на (вне сети).
а то у меня меняется только при следующем запуске.

пробую писать:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if IsConnectedToInternet then
begin
 StaticText1.Caption := indConnectInet  ;  // Сообщаю о соединении с сетью
end
 
else    
begin
 Timer2.Enabled := False;   // Останавиваю таймер
StaticText1.Caption := indDeconnectInet;      // Сообщаю о несоединении с сетью
end;
 
end;

но почему-то останавливает таймер только после 15 секунд.
в интервале вообще поставил (10) вместо (1000).

[=master=]

Зачем же вы отрубаете таймер?

[Shouldercannon]

Сообщение от =master=

Зачем же вы отрубаете таймер?

Ага.
Убери

Timer2.Enabled := False;

и будет тебе счастье.

[shilovec5377]

всеравно тоже самое

[shilovec5377]

вот нашел другую функцию

function IsConnectedToInternet: Boolean;
var
   dwConnectionTypes: DWORD;
begin
   dwConnectionTypes :=
     INTERNET_CONNECTION_MODEM +
     INTERNET_CONNECTION_LAN +
     INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if IsConnectedToInternet then
     StaticText1.Caption:='Connected.'
   else
     StaticText1.Caption:='Not Connected.';
end;

end.

[=master=]

Другую чего? спрашивали вы про таймер, но его метод остался темже...