Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> подключения к интернету 
V
    Опции темы
Михалыч
Дата 14.3.2009, 20:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет
Подскажите код для отображения всех подключений к интернету,или хотя бы которые по умолчанию


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
former
Дата 14.3.2009, 20:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Код

uses Registry;
...
function DUNGetConnections(OutList : TStrings) : Boolean;
var
  Reg : TRegistry;
begin
  OutList.Clear;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('\RemoteAccess\Profile', False) then
  begin
    Reg.GetKeyNames(OutList);
    Result := True;
  end
  else
  begin
    Result := False;
  end;
  Reg.Free;
end;


Это сообщение отредактировал(а) former - 14.3.2009, 21:04


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
former
Дата 14.3.2009, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Вообще вопрос должен быть в разделе по сетям. smile 


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Михалыч
Дата 14.3.2009, 21:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет
функцию вызвал так
Код

procedure TForm1.Button1Click(Sender: TObject);
begin
DUNGetConnections(Listbox1.Items);
end;


Если не правильно то подскажите как?


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
former
Дата 14.3.2009, 21:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Цитата(Михалыч @  14.3.2009,  21:23 Найти цитируемый пост)
DUNGetConnections(Listbox1.Items);


так вызывается процедура.

Вот в виде процедуры:

Код

procedure TForm1.Button2Click(Sender: TObject);
var
  Reg : TRegistry;
begin
  ListBox1.Clear;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  if Reg.OpenKey('\RemoteAccess\Profile', False) then
    Reg.GetKeyNames(ListBox1.Items);
  Reg.Free;
end;






--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Михалыч
Дата 14.3.2009, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет
Все равно ни чего не отображается.
У меня нет такого адреса в реестре


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
Михалыч
Дата 14.3.2009, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет
Посмотрите пожалуйста кому не лень.
Существует такой путь на вашем ПК ,а то может только у меня по этому адресу прописывается
HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\RAS AUTODIAL\DEFAULT


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
former
Дата 14.3.2009, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Цитата(Михалыч @  14.3.2009,  21:45 Найти цитируемый пост)
Все равно ни чего не отображается.
У меня нет такого адреса в реестре 

У меня на Viste все работает отлично. А какая операционка? Может ключ реестра просто нужно поменять?


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
~FoX~
Дата 14.3.2009, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЕ рыжий!!!
****


Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68
Михалыч, Только у тебя и у счастливых обладателей автодиалера...


--------------------
user posted image
…множественность никогда не следует полагать без необходимости…
PM MAIL WWW ICQ Jabber   Вверх
Михалыч
Дата 14.3.2009, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет
Операционка XP SP3 
Блин,ну что же мне делать?
А у Вас у всех по этому адресу ,и на висте?
RemoteAccess\Profile


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
former
Дата 14.3.2009, 22:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Цитата(Михалыч @  14.3.2009,  22:21 Найти цитируемый пост)
Блин,ну что же мне делать?

может определять тип Интернет соединения?


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Михалыч
Дата 14.3.2009, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет
Да наверное через модуль ras.pas попробую. Всем спасибо


--------------------
За частый поиск был забанен во всех известных поисковых системах.
Обиженных  комодераторов: 1 
PM MAIL   Вверх
tht
  Дата 19.5.2010, 09:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.5.2006

Репутация: нет
Всего: 1
не у всех еще стоит VISTA.

попробуй эту хренатень...
Код

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Wininet, StdCtrls;

type
  TFormMain = class(TForm)
    MemoStatus: TMemo;
    ButtonGet: TButton;
    procedure ButtonGetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation

{$R *.dfm}

procedure TFormMain.ButtonGetClick(Sender: TObject);
var
  tt: DWORD;
begin
  if InternetGetConnectedState(@tt,0) then begin
    case tt of
    1: MemoStatus.Lines.Add('INTERNET_CONNECTION_MODEM');
    2: MemoStatus.Lines.Add('INTERNET_CONNECTION_LAN');
    4: MemoStatus.Lines.Add('INTERNET_CONNECTION_PROXY');
    8: MemoStatus.Lines.Add('INTERNET_CONNECTION_MODEM_BUSY');
    18: MemoStatus.Lines.Add('HTTP_QUERY_VERSION');
    else
      MemoStatus.Lines.Add('Не известно что  ' + IntToStr(tt));
    end;
  end else begin
    MemoStatus.Lines.Add('InternetGetConnectedState FALSE or STATUS DISCONNECTED');
  end;
end;

end.


и скажи какой результат у тебя выдает.

Это сообщение отредактировал(а) tht - 19.5.2010, 09:29
PM MAIL   Вверх
tht
  Дата 19.5.2010, 09:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 118
Регистрация: 10.5.2006

Репутация: нет
Всего: 1
а вообще вот смотри ссылку
http://msdn.microsoft.com/en-us/library/aa...3(v=VS.85).aspx
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0685 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.