Navn på i-forb

Der er et lille eksempel her :

Function TForm1.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
      showmessage(\'Modem\');
    end;
    if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
    begin
      showmessage(\'LAN\');
    end;
    if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
    begin
      showmessage(\'Proxy\');
    end;
    if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
    begin
      showmessage(\'Modem Busy\');
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConnectionKind;
end;

Håber du kan bruge det ??

Does

Husk lige at tilføje \"wininet\" i uses.

faktisk kan det bruges, men i stedet for showmessage(\'Modem\') skulle der stå showmessage( og så navnet på modemforbindelsen!

sorry. .. jeg fik ikke besvaret mit spørgsmål, så pointene forsvinder