{"id":173,"date":"2007-05-12T16:34:26","date_gmt":"2007-05-12T14:34:26","guid":{"rendered":" http:\/\/www.nsonic.de\/blog\/2007\/05\/bring-up-the-standard-windows-dial-up-box\/"},"modified":"2007-05-12T16:34:29","modified_gmt":"2007-05-12T14:34:29","slug":"bring-up-the-standard-windows-dial-up-box","status":"publish","type":"post","link":"https:\/\/www.nsonic.de\/blog\/2007\/05\/bring-up-the-standard-windows-dial-up-box\/","title":{"rendered":"bring up the standard windows dial up box"},"content":{"rendered":"<p><em>> I want to fire an internet connection, i do not want my own dial up.<br \/>\n><br \/>\n> I just want to bring the standard windows dial up box like when you click on<br \/>\n> IE.<br \/>\n><br \/>\n> Is their some simple API call of is it easier to find a ras component?<br \/>\n><br \/>\n> Thanks<br \/>\n><br \/>\n> Ian<br \/>\n<\/em><br \/>\n[code lang=&#8221;delphi&#8221;]\/\/Add Wininet in uses list<\/p>\n<p>\/\/Declare these two as public&#8230;<br \/>\nHInet : HINTERNET ;<br \/>\nfunction InternetConnected: Boolean;<\/p>\n<p>function TfrmMain.InternetConnected: Boolean;<br \/>\nCONST<br \/>\n     INTERNET_CONNECTION_MODEM = 1; \/\/ local system uses a modem to connect to the Internet.<br \/>\n     INTERNET_CONNECTION_LAN = 2; \/\/ local system uses a local area network to connect to the Internet.<br \/>\n     \/\/INTERNET_CONNECTION_PROXY = 4; \/\/ local system uses a proxy server to connect to the Internet.<br \/>\n     INTERNET_CONNECTION_MODEM_BUSY = 8; \/\/ local system&#8217;s modem is busy with a non-Internet connection.<br \/>\nVAR<br \/>\n     dwConnectionTypes : DWORD;<br \/>\nBEGIN<br \/>\n     dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN ;\/\/+ INTERNET_CONNECTION_PROXY;<br \/>\n     Result := InternetGetConnectedState(@dwConnectionTypes, 0);<br \/>\nend;<\/p>\n<p>\/\/check if user is already connected to internet and if not then it pops up with dialup box<br \/>\nif not InternetConnected then<br \/>\n     begin<br \/>\n          HInet := InternetOpen(&#8216;Microsoft Internet Explorer&#8217;, INTERNET_OPEN_TYPE_DIRECT , Nil , Nil ,<br \/>\n                                           INTERNET_FLAG_EXISTING_CONNECT );<br \/>\n          InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE,0);<br \/>\n     end;<br \/>\n[\/code]<\/p>\n<p>[tags]Delphi, Internet[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"<p>> I want to fire an internet connection, i do not want my own dial up. > > I just want to bring&hellip;<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,106],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-2N","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/173"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=173"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/173\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=173"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=173"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=173"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}