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

Материал из DRKB

Набор dialup соединения по умолчанию[править | править код]

Для w9x, me:


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;


ID: 01469



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;


ID: 01470



Для Nt, w2k, XP:

uses WinInet;

InternetAutoDial(INTERNET_AUTODIAL_FORCE_ONLINE, Handle);


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


Author: Song
Source: Взято из http://forum.sources.ru
ID: 01471