| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя подключения

Mirror ©   (2004-10-27 20:02:00) 

Люди подскажите, как узнать в винде имя подключения?

---

Rouse_   (2004-10-28 10:08:00) [1]

Вот так можно узнать всеактивные:

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 end;

 _LUID = record
   LowPart: DWORD;
   HighPart: Cardinal;
 end;

 TRasConn = record
   dwSize: DWORD;
   hRasConn: THandle;
   szEntryName: array [0..20] of AnsiChar;
   {szDeviceType: array [0..20] of AnsiChar;
   szDeviceName: array [0..20] of AnsiChar;
   szPhonebook: array [0..MAX_PATH] of AnsiChar;
   dwSubEntry: DWORD;
   guidEntry: TGUID;
   dwFlags: DWORD;
   luid: _LUID; }
 end;

 function RasEnumConnections(var lpRasConn: TRasConn; var lpCb: DWORD;
   var lpcConnections: DWORD): DWORD stdcall; external 'rasapi32.dll' name 'RasEnumConnectionsA';

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Ras: TRasConn;
 Size, ConnCount: DWORD;
 Err, I: DWORD;
begin
 FillChar(Ras, SizeOf(TRasConn), 0);
 Ras.dwSize := SizeOf(TRasConn);
 Err := RasEnumConnections(Ras, Size, ConnCount);
 if (Err = ERROR_SUCCESS) and (ConnCount > 0) then
 begin
   for I := 0 to ConnCount - 1 do
     Memo1.Lines.Add(Ras.szEntryName);
 end
 else
   ShowMessage(SysErrorMessage(Err));
end;

end.

---

Mirror   (2004-10-27 21:36:00) [2]

Если несколько, то всех

---

Rouse_   (2004-10-27 20:43:00) [3]

Которого именно?
Их может быть несколько одновременно активных...

---

Anatoly Podgoretsky   (2004-10-27 20:21:00) [4]

А это что такое?

---

Наверх