Дозвон до провайдера [D5, Win95/98, WinXP]
Pars © (2002-10-18 16:05:00)
Подскажите как дозвониться до провайдера используя настроенный
удаленный доступ и стандартную звонилку.
Константин Ловецкий (2002-10-19 00:16:00) [1]
см.
http://www.sources.ru/delphi/internet/dial_default_dialup_connection.shtml
Как законнектиться через 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 = родительское окно
Наверх 
ЧАТ |
Орешник |
|
