Iphone

I have a modem equipped with gprs enabled sim.I am working in windows2000.I connected to gprs network using my dial-up connection.After some time,it gets disconnected. I need some way to dial the gprs modem(using number *99***1#) programatically in Delphi programming language.

Iphone

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', False) then
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;