Всем привет!
Если вы читаете эти строки, это значит (сейчас я вас обрадую) у вас есть выход в интернет Поздравляю.
А если у вас есть выход в интернет, значит вы к нему как-то законнективаетесь, правильно? Во-о, а раз вы к нему законнективаетесь, значит у вас в левом нижнем углу (там где часы) есть значок соединения, если на него два раза щелкнуть мышкой, то еще появляется сведения о скорости и времени соединения.
Так вот очень хотелось бы программно докопаться до этого окошка и получить содержащююся в нем инфу, но самое главное, это опредилить есть оно вообще или нет. Короче говоря, хочу разработать именно такой способ проверки наличия соединения с интернетом. А если кто подскажет как докопаться до этого окошка на удаленном компьютере Админа, у которого стоит XP, тот меня вообще осчастливит.
Спасибо.

А почему бы не воспользоваться InternetGetConnectedState:

Код

procedure TForm1.Button1Click(Sender: TObject); var  Flags:DWORD; begin Flags:= 0; ListBox1.Items.Clear; if InternetGetConnectedState(@Flags, 0) then begin   with ListBox1.Items do   begin     if (Flags and INTERNET_CONNECTION_LAN) <> 0 then       Add('Local system uses a local area network to connect to the Internet.');     if (Flags and INTERNET_CONNECTION_MODEM) <> 0 then       Add('Local system uses a modem to connect to the Internet.');     if (Flags and INTERNET_CONNECTION_PROXY) <> 0 then       Add('Local system uses a proxy server to connect to the Internet.');     if (Flags and INTERNET_CONNECTION_MODEM_BUSY) <> 0 then       Add('No longer used.');   end; end else   ListBox1.Items.Add('Disconnected'); end;

А зачем изобретать велосипед? В виндоусе уже есть признак соединения, так зачем проводить еще какие-то проверки?
<Spawn>, а где находится InternetGetConnectedState, что-то я такое не нашел?

WinInet

Это работает только если выходишь в интернет с того компьютера на котором будет стоять программа с этим кодом. В случае, если выход в интернет осуществляется через модем, а я выхожу после этого уже по локалке, то это не работает