Набор dialup соединения по умолчанию -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [18.191.195.110]

Модераторы: Rouse_, jack128, Krid

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

Song

Сообщ. #1 , 01.12.03, 18:48

Unregistered

Для w9x, me:

Вариант 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 - окно, из которого вызывается функция.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0124 ] [ 16 queries used ] [ Generated: 27.04.24, 18:09 GMT ]