インターネット接続確認をするには？ (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 です。

←解決時は質問者本人がここをチェックしてください。

戻る