Internetverbindung trennen

[Delphi Star]

Zitat von Florian Bernd:

Hallo,
hast du diesen Code?

Florian

Ja,

Delphi-Quellcode:

// hangup the default Internet connection.
procedure TForm1.Button2Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if InternetGetConnectedState(@dwConnectionTypes, 0) then
    // connected
    InternetAutodialHangup(0);
end;