Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=39474&view=findpost&p=255738 Mon, 01 Dec 2003 18:48:45 +0000 Набор dialup соединения по умолчанию https://forum.sources.ru/index.php?showtopic=39474&view=findpost&p=255738
Вариант 1

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;

Вариант 2:

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;

Для Nt, w2k, XP:

Uses ..., WinInet;

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