Набор dialup соединения по умолчанию

Previous  Top  Next

    
 

 

 

Для w9x, me:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var cmd, par, fil, dir: PChar;

begin

Cmd := 'open';

Fil := 'rasdial.exe';

Par := PChar(edtEntry.Text + ' ' + EdtUser.Text + ' ' + EdtPass.Text);

Dir := 'C:';

ShellExecute(Handle, Cmd, Fil, Par, Dir, SW_SHOWMINNOACTIVE);

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var Cmd, Par, Fil, Dir: PChar;

begin

Cmd := 'open';

Fil := 'rasdial.exe';

Par := PChar(EdtEntry.Text + ' /DISCONNECT');

Dir := 'C:';

ShellExecute(Handle, Cmd, Fil, Par, Dir, SW_SHOWMINNOACTIVE);

end;

©Drkb::01469

 

 


 

Code:

uses Registry, Windows;

 

function DUNDialDefault(Hide: Boolean): Boolean;

var Reg: TRegistry;

TempResult: Boolean;

Name, Con: string;

ASW: Integer;

begin

with TRegistry.Create do

try

   RootKey := HKEY_CURRENT_USER;

   if OpenKey('\RemoteAccess', False) then

     begin

       TempResult := True;

       Name := ReadString('Default');

     end

   else

     TempResult := False;

finally

   Free;

end;

if TempResult then

   begin

     if Hide then

       ASW := SW_HIDE

     else

       ASW := SW_SHOWDEFAULT;

     Con := 'rnaui.dll,RnaDial ' + Name;

     ShellExecute(0, nil, 'rundll32.exe', PChar(Con), 'C:\windows\', ASW);

   end; {IF}

Result := TempResult;

end;

 

©Drkb::01470

 


 

 

Для Nt, w2k, XP:

Code:

Uses ..., WinInet;

 

InternetAutoDial (INTERNET_AUTODIAL_FORCE_ONLINE, Handle);

 

Handle - окно, из которого вызывается функция.

 

©Drkb::01471

Автор: Song

Взято из http://forum.sources.ru