Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Дозвон до провайдера   Найти похожие ветки 

 
Pars ©   (2002-10-18 16:05) [0]

Подскажите как дозвониться до провайдера используя настроенный удаленный доступ и стандартную звонилку.


 
Константин Ловецкий   (2002-10-19 00:16) [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 = родительское окно




Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
1-51668
--Magic--
2002-12-04 15:44
2002.12.16
Перестал открываться файл проекта


3-51606
Виталий Панасенко
2002-11-27 17:35
2002.12.16
Как создать такой отчет


1-51827
Tundra
2002-12-05 14:17
2002.12.16
Нужно в StringGrid организовать CheckBox


1-51685
Dik!S
2002-12-03 14:19
2002.12.16
Delphi


1-51810
brestmarket
2002-12-05 11:52
2002.12.16
Необходимы ответы при использовании стандартных компонент Delphi6