Автоматически дозвониться по интернет соединению по умолчанию

Советы » Dial-up » Автоматически дозвониться по интернет соединению по умолчанию

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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com