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

Вниз

Имя подключения   Найти похожие ветки 

← →
Mirror ©   (2004-10-27 20:02) [0]

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

---

← →
Anatoly Podgoretsky ©   (2004-10-27 20:21) [1]

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

---

← →
Rouse_ ©   (2004-10-27 20:43) [2]

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

---

← →
Mirror ©   (2004-10-27 21:36) [3]

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

---

← →
Rouse_ ©   (2004-10-28 10:08) [4]

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

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.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.042 c