Как законнектиться через Dial-Up соединение по умолчанию
Интернетчик орёт на жену:
-Ты изменяла?
Жена:
-Нет, что ты! Как ты мог подумать такое
И:- Нет, лучше сразу скажи, Ты изменяла?
Ж:- Да перестань, и в мыслях не было!
И: - Если я узнаю, что ты изменила, убью!
Ж: - Скажи мне, что случилось?
И: Что-что! В Интернет войти не могу, сервер выдаёт "Ваш пароль неверный"! Не мог-же он сам измениться!(орёт) Ты изменяла?
uses
Registry, windows;
// Показать или скрыть диалог dial-upfunction 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) thenbegin
TempResult := True;
name := Reg.ReadString('Default');
endelse
tempresult := False;
Reg.Free;
if TempResult = True thenbeginif 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.
Затем используйте следующую команду:
Статья Как законнектиться через Dial-Up соединение по умолчанию раздела Интернет и Сети Dial-up может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.