Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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




uses
  Registry, windows;

// Показать или скрыть диалог dial-up
function DUNDialDefault(Hide: Boolean): Boolean;
var
  Reg: TRegistry;
  TempResult: Boolean;
  name, con: string;
  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
    tempresult := False;

  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 = родительское окно

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011