インターネット接続確認をするには？ (ID:6302)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Halbow です。 ちょっと試してみました。 uses WinInet; const INTERNET_RAS_INSTALLED =$10; INTERNET_CONNECTION_OFFLINE =$20; INTERNET_CONNECTION_CONFIGURED =$40; procedure TForm1.Button1Click(Sender: TObject); var Flag:DWORD; begin Memo1.Clear; if InternetGetConnectedState(@Flag,0) then begin if (Flag and INTERNET_CONNECTION_MODEM) <> 0 then Memo1.Lines.Add('CONNECTION_MODEM'); if (Flag and INTERNET_CONNECTION_LAN) <> 0 then Memo1.Lines.Add('CONNECTION_LAN'); if (Flag and INTERNET_CONNECTION_PROXY) <> 0 then Memo1.Lines.Add('CONNECTION_PROXY'); if (Flag and INTERNET_RAS_INSTALLED) <> 0 then Memo1.Lines.Add('RAS_INSTALLED'); if (Flag and INTERNET_CONNECTION_OFFLINE) <> 0 then Memo1.Lines.Add('CONNECTION_OFFLINE'); if (Flag and INTERNET_CONNECTION_CONFIGURED) <> 0 then Memo1.Lines.Add('CONNECTION_CONFIGURED'); end else Memo1.Lines.Add('No Connection'); end; わたしの自宅では ADSL ですが、正常につながっているときも、無線 LAN カード を引っこ抜いたとき（従ってルータにもつながっていない）も同じように Memo1 には CONNECTION_LAN RAS_INSTALLED と表示されて、接続の有無は確認できませんでした。D5 sp1 in Win2k sp4 です。