インターネットに繋がってる？

まあ、そういうわけでインターネットに繋がっているかを調べる方法ってことです。
これは今まで結構気になっていたんですが、こんなに簡単だとは思いませんでした(苦笑)
つーわけでさくっとソース。

{require WinInet}
function InternetConnected: Boolean;
var
  Flags: DWORD; //not use
begin
  Result := InternetGetConnectedState(@Flags, 0);
end;

簡単すぎて拍子抜けしますね。

Flags は何って気になる人がいるだろうので一応説明を。
いつもだったらヘルプ引いてねで逃げるところですが・・・Delphi4 付属の Win32 SDK ヘルプで引けないでやんの(しくしく)
私は VC ユーザなお友達に代わりに引いてもらったのでした。
まあ、それはさておき Flags は接続の詳細を受け取るための引数なのです。
その値は以下の定数の組み合わせです。

• INTERNET_CONNECTION_MODEM
• INTERNET_CONNECTION_LAN
• INTERNET_CONNECTION_PROXY
• INTERNET_CONNECTION_MODEM_BUSY

値の意味はなんとなく分かってください(爆)

Return index page