Набор 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