From a website I have found the following code in Delphi that will dial the default code....
To dial the default Dial-Up Networking Connection, you can use the following Function: (Returns True if successfull)
Uses Registry, windows;
Function DUNDialDefault(Hide : Boolean) : Boolean;
// Show or hide the dial-up dialog
var Reg : TRegistry;
var TempResult : Boolean;
var Name, con : String;
var ASW : Integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\RemoteAccess
begin
TempResult := True;
Name := Reg.ReadString('Default');
end
else begin
tempresult := False;
end;
Reg.Free;
if TempResult = True then
begin
if Hide = True then ASW := SW_HIDE
else ASW := SW_SHOWDEFAULT;
con := 'rnaui.dll,RnaDial ' + Name;
ShellExecute(0, nil, 'rundll32.exe' , PChar
(con), 'C:\windows\', ASW);
end;
Result := tempResult;
end;
Imran
Main Topics
Browse All Topics
by: imarshadPosted on 2006-05-02 at 04:05:47ID: 16584606
Not sure about delphi but I dial out my GPRS connection named "GPRS-DialUP" using the following code in VB6.....
Public Declare Function InternetDial Lib "wininet.dll" Alias "InternetDialA" (ByVal hwndParent As Long, ByVal strEntryName As String, ByVal dwFlags As Long, lpdwConnection As Long, ByVal dwReserved As Long) As Long
Call InternetDial(Me.hWnd, "GPRS-DialUP", 2&, HandleConnection, 0&)
Imran