unit Unit1;

interface

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

const RAS_MaxEntryName = 256;
     RAS_MaxDeviceType = 16;
     RAS_MaxDeviceName = 128;
     RASAPI = 'rasapi32.dll';

type
 TForm1 = class(TForm)
   Button1: TButton;
   Memo1: TMemo;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

type
 HRASCONN = THandle;
 //

 TRasConnA = record
   dwSize       : DWORD;
   hrasconn     : HRASCONN;
   szEntryName  : packed array[0..RAS_MaxEntryName ] of AnsiChar;
   {$IFDEF WINVER_0x400_OR_GREATER}
   szDeviceType : packed array[0..RAS_MaxDeviceType ] of AnsiChar;
   szDeviceName : packed array[0..RAS_MaxDeviceName ] of AnsiChar;
   {$ENDIF}
   {$IFDEF WINVER_0x401_OR_GREATER}
   szPhonebook: packed array[0..MAX_PATH - 1] of AnsiChar;
   dwSubEntry: DWORD;
   {$ENDIF}
   {$IFDEF WINVER_0x500_OR_GREATER}
   guidEntry: TGUID;
   {$ENDIF}
 end;
 TRasConn   = TRasConnA;
 PRasConn   = ^TRasConnA;

function RasEnumConnections(RasConnArray: PRasConn; var lpcb: LongInt; var lpcConnections: Longint): Longint; stdcall;
external RASAPI name 'RasEnumConnectionsA';

procedure TForm1.Button1Click(Sender: TObject);
 var uNumber  : LongInt;
 uSize    : LongInt;
 dwRet    : DWord;
 RasConns : array[0..15] of TRasConn;
begin
 uSize:= SizeOf(RasConns);
 FillChar(RasConns,uSize,0);
 RasConns[0].dwSize:=SizeOf(TRasConn);

 dwRet := RasEnumConnections(@RasConns[0], uSize, uNumber);
 if dwRet = 0 then
  Memo1.Lines.Add('Count RAS:'+IntToStr(uNumber)) else
   Memo1.Lines.Add('Error RasEnumConnections. Code:#'+IntToStr(dwRet));
end;

end.

program RasEnum;

{$APPTYPE CONSOLE}

uses
 Windows,
 SysUtils;

const
 RAS_MaxDeviceType     = 16;
 RAS_MaxDeviceName     = 128;
 RAS_MaxEntryName      = 256;

type
 HRASCon = THandle;

 PRASCONNA = ^TRasConnA;
 TRasConnA = record
   dwSize : DWORD;
   hrasconn : HRasCon;
   szEntryName : array [0..RAS_MaxEntryName] of AnsiChar;
   szDeviceType : array [0..RAS_MaxDeviceType] of AnsiChar;
   szDeviceName : array [0..RAS_MaxDeviceName] of AnsiChar;
   szPhonebook : array [0..MAX_PATH - 1] of AnsiChar;
   dwSubEntry : DWORD;
 end;

 function RasEnumConnectionsA(lpRasconn: PRASConnA;
   lpcb, lpcConnections: PDWORD): DWORD; stdcall; external 'rasapi32.dll';

var
 Connections: array [0..255] of TRasConnA;
 cb, cConnections, dwError: DWORD;
begin
 cb := Length(Connections) * SizeOf(TRasConnA);
 Connections[0].dwSize := SizeOf(TRasConnA);
 dwError := RasEnumConnectionsA(@Connections[0], @cb, @cConnections);
 if dwError = NO_ERROR then
   Writeln('RAS count: ', cConnections)
 else
   Writeln('RasEnumConnectionsA error: (', dwError, '). ', SysErrorMessage(dwError));
 Readln;
end.

 TRasConnADefault = record
   dwSize : DWORD;
   hrasconn : HRasCon;
   szEntryName : array [0..RAS_MaxEntryName] of AnsiChar;
   szDeviceType : array [0..RAS_MaxDeviceType] of AnsiChar;
 end;

 TRasConnA400 = record
   dwSize : DWORD;
   hrasconn : HRasCon;
   szEntryName : array [0..RAS_MaxEntryName] of AnsiChar;
   szDeviceType : array [0..RAS_MaxDeviceType] of AnsiChar;
   szDeviceType : array [0..RAS_MaxDeviceType] of AnsiChar;
   szDeviceName : array [0..RAS_MaxDeviceName] of AnsiChar;
 end;

 TRasConnA401 = record
   dwSize : DWORD;
   hrasconn : HRasCon;
   szEntryName : array [0..RAS_MaxEntryName] of AnsiChar;
   szDeviceType : array [0..RAS_MaxDeviceType] of AnsiChar;
   szDeviceName : array [0..RAS_MaxDeviceName] of AnsiChar;
   szPhonebook : array [0..MAX_PATH - 1] of AnsiChar;
   dwSubEntry : DWORD;
 end;

 function RasEnumConnectionsA(lpRasconn: Pointer;
   lpcb, lpcConnections: PDWORD): DWORD; stdcall; external 'rasapi32.dll';

 TRasConnA = record
   dwSize       : DWORD;
   hrasconn     : HRASCONN;
   szEntryName  : packed array[0..RAS_MaxEntryName ] of AnsiChar;
   {$IFDEF WINVER_0x400_OR_GREATER}
   szDeviceType : packed array[0..RAS_MaxDeviceType ] of AnsiChar;
   szDeviceName : packed array[0..RAS_MaxDeviceName ] of AnsiChar;