Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира




Как законнектиться через Dial-Up соединение по умолчанию

Для этого используется следующая функция:  (Возвращает True в случае успеха)

Uses Registry, windows;

Function DUNDialDefault(Hide : Boolean) : Boolean;
// Показать или скрыть диалог dial-up
var Reg : TRegistry;
var TempResult : Boolean;
var Name, con : String;
var ASW : Integer;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\RemoteAccess', False) then
  begin
    TempResult := True;
    Name := Reg.ReadString('Default');
  end
else begin
tempresult := False;
end;
Reg.Free;
if TempResult = True then
  begin
    if Hide = True then ASW := SW_HIDE
    else ASW := SW_SHOWDEFAULT;
    con := 'rnaui.dll,RnaDial ' + Name;
    ShellExecute(0, nil, 'rundll32.exe' , PChar
                  (con), 'C:\windows\', ASW);
end;
Result := tempResult;
end;

 

В Win2000 и WinXP можно воспользоваться WinInet:

Для этого добавьте WinInet в секцию uses.
Затем используйте следующую команду:

InternetAutoDial (INTERNET_AUTODIAL_FORCE_ONLINE, handle);

handle = родительское окно

 


 

 


Основные разделы сайта


 

Реклама