Check inet

Kigger lige med

Dette tjekker uanset hvordan du er forbundet til
internettet

function IsConnectedToInternet : boolean;
begin
  result := (InternetGetConnectedState(nil, 0))
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet then
  ShowMessage(\'Connected.\')
else
  ShowMessage(\'Not Connected.\')
end;


Husk at tilføje Wininet i Uses


Stoney

Se: http://www.eksperten.dk/spm/81971

brug dette:

Function ConnectionKind :boolean;
var
  flags: dword;
begin
  Result := InternetGetConnectedState(@flags, 0);
  if Result then
  begin
    if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
    begin
      Result := True;
    end
    else
    begin
      Result := False;
    end

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if  ConnectionKind = true then
Showmessage(\'modem\')
else
Showmessage(\'ikke modem\')
end;

det er sådan at den ser om du kører over modem, koden kan også tilpasses så den kan se om du har netværks forbindelse og sådan...

/ZIRON

og Wininet skal op i uses...

/ZIRON

Takker alle .. d ser ud til at virke