Автоматически дозвониться по интернет соединению по умолчаниюDelphi , Интернет и Сети , Dial-upАвтоматически дозвониться по интернет соединению по умолчанию
Оформил: DeeCo 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; Статья Автоматически дозвониться по интернет соединению по умолчанию раздела Интернет и Сети Dial-up может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |