Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi DFÜ-Standardfenster öffnen (https://www.delphipraxis.net/10665-dfue-standardfenster-oeffnen.html)

Alex_ITA01 23. Okt 2003 07:11


DFÜ-Standardfenster öffnen
 
hallo erstmal,
kann mir einer sagen wie ich per Button z.B. das Standard DFÜ-Einwahl Fenster öffnen kann?
Und dann eben selber einwählen wie es sonst ja auch normal ist.
danke alex

XeRo 24. Okt 2003 16:18

Re: DFÜ-Standardfenster öffnen
 
Ich nehm mal an, dass du eine Verbindung mit dem Internet erstellen möchtest...Wenn nicht dann sags!

Versuchs mal
Delphi-Quellcode:
uses
  WinInet;

// Causes the modem to automatically dial the default Internet connection.
procedure TForm1.Button1Click(Sender: TObject);
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + 
    INTERNET_CONNECTION_PROXY;
  if not InternetGetConnectedState(@dwConnectionTypes, 0) then
    // not connected
    if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
      INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
    begin
      // error
    end;
end;


// 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;
:spin:


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:04 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz