[code=pascal]
{$REGION 'типы данных'}
type
  {$REGION 'директивы компиляции'}
    {$ALIGN 8}
  {$ENDREGION}
  {$REGION 'типы данных'}
  /// <summary>
  ///   Указатель на дескриптор соединения через RAS
  /// </summary>
  LPHRasConn = ^THRasConn;
  /// <summary>
  ///   Дескриптор соединения через RAS
  /// </summary>
  THRasConn = THandle;
  {$ENDREGION}
  {$REGION 'директивы компиляции'}
    {$ALIGN 4}  // требование Win64 для выравнивания структуры RasConn на двойное слово
  {$ENDREGION}
  {$REGION 'структуры для вызова API со специальным выравнивание'}
  /// <summary>
  ///   Ссылка на параметры RAS-соединения для Windows 2000 и более поздних версий
  /// </summary>
  LPRasConn2K = ^TRasConn2K;
  /// <summary>
  ///   Параметры RAS-соединения для Windows 2000 и более поздних версий (Unicode версия)
  /// </summary>
  /// <remarks>
  ///   В связи с требованием Win64 выравнивание структуры RasConn выполняется на двойное слово
  /// </remarks>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa376725(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasConn2K = packed record
    dwSize:       DWORD;
    rasConn:      THRasConn;
    szEntryName:  array[0..RAS_MaxEntryName] of WideChar;
    szDeviceType: array[0..RAS_MaxDeviceType] of WideChar;
    szDeviceName: array[0..RAS_MaxDeviceName] of WideChar;
    szPhonebook:  array[0..MAX_PATH - 1] of WideChar;
    dwSubEntry:   DWORD;
    guidEntry:    TGUID;
   end;
  {$ENDREGION}
  {$REGION 'директивы компиляции'}
    {$ALIGN 8}
  {$ENDREGION}
  {$REGION 'структуры для вызова API со стандартным выравниванием'}
  /// <summary>
  ///   Ссылка на параметры статуса RAS-соединения для Windows NT4 и более поздних версий
  /// </summary>
  LPRasConnStatusNT4 = ^TRasConnStatusNT4;
  /// <summary>
  ///   Параметры статуса RAS-соединения для Windows NT4 и более поздних версий (Unicode версия)
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa376728(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasConnStatusNT4 = packed record 
    dwSize:        DWORD;
    rasConnstate:  Word;
    dwError:       DWORD;
    szDeviceType:  array[0..RAS_MaxDeviceType] of WideChar;
    szDeviceName:  array[0..RAS_MaxDeviceName] of WideChar;
    szPhoneNumber: array[0..RAS_MaxPhoneNumber] of WideChar;
  end;
  /// <summary>
  ///   Ссылка на параметры Extensible Authentication Protocol при установке RAS-соединения
  ///   для Windows 2000 и более поздних версий
  /// </summary>
  // (Windows 2000 и более поздние версии)
  LPRasEapInfo = ^TRasEapInfo;
  /// <summary>
  ///   Параметры Extensible Authentication Protocol при установке RAS-соединения
  ///   для Windows 2000 и более поздних версий
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa377242(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasEapInfo = packed record
    dwSizeofEapInfo: DWORD;
    pbEapInfo: Pointer;
  end;
  /// <summary>
  ///   Ссылка на параметры набора RAS-соединения для Windows NT4 и более поздних версий
  /// </summary>
  LPRasDialParamsNT4 = ^TRasDialParamsNT4;
  /// <summary>
  ///   Параметры набора RAS-соединения для Windows NT4 и более поздних версий (Unicode версия)
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa377238(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasDialParamsNT4 = packed record
    dwSize:           DWORD;
    szEntryName:      array[0..RAS_MaxEntryName] of WideChar;
    szPhoneNumber:    array[0..RAS_MaxPhoneNumber] of WideChar;
    szCallbackNumber: array[0..RAS_MaxCallbackNumber] of WideChar;
    szUserName:       array[0..UNLEN] of WideChar;
    szPassword:       array[0..PWLEN] of WideChar;
    szDomain:         array[0..DNLEN] of WideChar;
    dwSubEntry:       DWORD;
    dwCallbackId:     Pointer;
  end;
  /// <summary>
  ///   Ссылка на параметры названия элемента телефоной книги RAS-соединения для Windows 2000
  ///   и более поздних версий
  /// </summary>
  LPRasEntryNameW2K = ^TRasEntryNameW2K;
  /// <summary>
  ///   Параметры названия элемента телефоной книги RAS-соединения для Windows 2000
  ///   и более поздних версий (Unicode версия)
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa377267(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasEntryNameW2K = packed record
    dwSize:          DWORD;
    szEntryName:     array[0..RAS_MaxEntryName] of WideChar;
    dwFlags:         DWORD;
    szPhonebookPath: array[0..MAX_PATH] Of WideChar;
  end;
  /// <summary>
  ///   Ссылка на RAS IPv4-адрес
  /// </summary>
  LPRasIPAddr = ^TRasIPAddr;
  /// <summary>
  ///   RAS IPv4-адрес
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa377578(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasIPAddr = packed record
    A, B, C, D: Byte;
  end;
  /// <summary>
  ///   Ссылка на элемент телефонной книги RAS API для Windows XP и более поздних версий
  /// </summary>
  LPRasEntryXP = ^TRasEntryXP;
  /// <summary>
  ///   Элемент телефонной книги RAS API для Windows XP и более поздних версий (Unicode версия)
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/aa377274(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasEntryXP = packed record
    dwSize:                     DWORD;
    dwfOptions:                 DWORD;
    dwCountryID:                DWORD;
    dwCountryCode:              DWORD;
    szAreaCode:                 array[0..RAS_MaxAreaCode] of WideChar;
    szLocalPhoneNumber:         array[0..RAS_MaxPhoneNumber] of WideChar;
    dwAlternateOffset:          DWORD;
    ipaddr:                     TRasIPAddr;
    ipaddrDns:                  TRasIPAddr;
    ipaddrDnsAlt:               TRasIPAddr;
    ipaddrWins:                 TRasIPAddr;
    ipaddrWinsAlt:              TRasIPAddr;
    dwFrameSize:                DWORD;
    dwfNetProtocols:            DWORD;
    dwFramingProtocol:          DWORD;
    szScript:                   array[0..MAX_PATH - 1] of WideChar;
    szAutodialDll:              array[0..MAX_PATH - 1] of WideChar;
    szAutodialFunc:             array[0..MAX_PATH - 1] of WideChar;
    szDeviceType:               array[0..RAS_MaxDeviceType] of WideChar;
    szDeviceName:               array[0..RAS_MaxDeviceName] of WideChar;
    szX25PadType:               array[0..RAS_MaxPadType] of WideChar;
    szX25Address:               array[0..RAS_MaxX25Address] of WideChar;
    szX25Facilities:            array[0..RAS_MaxFacilities] of WideChar;
    szX25UserData:              array[0..RAS_MaxUserData] of WideChar;
    dwChannels:                 DWORD;
    dwReserved1:                DWORD;
    dwReserved2:                DWORD;
    dwSubEntries:               DWORD;
    dwDialMode:                 DWORD;
    dwDialExtraPercent:         DWORD;
    dwDialExtraSampleSeconds:   DWORD;
    dwHangUpExtraPercent:       DWORD;
    dwHangUpExtraSampleSeconds: DWORD;
    dwIdleDisconnectSeconds:    DWORD;
    dwType:                     DWORD;
    dwEncryptionType:           DWORD;
    dwCustomAuthKey:            DWORD;
    guidId:                     TGUID;
    szCustomDialDll:            array[0..MAX_PATH - 1] of WideChar;
    dwVpnStrategy:              DWORD;
    dwfOptions2:                DWORD;
    dwfOptions3:                DWORD;
    szDnsSuffix:                array[0..RAS_MaxDnsSuffix - 1] of WideChar;
    dwTcpWindowSize:            DWORD;
    szPrerequisitePbk:          array[0..MAX_PATH - 1] of WideChar;
    szPrerequisiteEntry:        array[0..RAS_MaxEntryName] of WideChar;
    dwRedialCount:              DWORD;
    dwRedialPause:              DWORD;
  end;
  /// <summary>
  ///   Ссылка на дополнительные параметры набора RAS-соединения для Windows 2000
  ///   и более поздних версий
  /// </summary>
  LPRasDialExtensionsW2K = ^TRasDialExtensionsW2K;
  /// <summary>
  ///   Дополнительные параметры набора RAS-соединения для Windows 2000 и более поздних версий
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/windows/desktop/aa377029(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasDialExtensionsW2K = packed record
    dwSize:     DWORD;
    dwfOptions: DWORD;
    hwndParent: HWnd;
    reserved:   Pointer;
    reserved1:  Pointer;
    RasEapInfo: TRasEapInfo;
  end;
  /// <summary>
  ///   Ссылка на параметры статистики RAS-соединения для Windows 2000 и более поздних версий
  /// </summary>
  LPRasStats = ^TRasStats;
  /// <summary>
  ///   Параметры статистики RAS-соединения для Windows 2000 и более поздних версий
  /// </summary>
  /// <seealso href="https://msdn.microsoft.com/en-us/library/windows/desktop/aa446723(v=vs.85).aspx">
  ///   MSDN
  /// </seealso>
  TRasStats = packed record
    dwSize:                DWORD;
    dwBytesXmited:         DWORD;
    dwBytesRcved:          DWORD;
    dwFramesXmited:        DWORD;
    dwFramesRcved:         DWORD;
    dwCrcErr:              DWORD;
    dwTimeoutErr:          DWORD;
    dwAlignmentErr:        DWORD;
    dwHardwareOverrunErr:  DWORD;
    dwFramingErr:          DWORD;
    dwBufferOverrunErr:    DWORD;
    dwCompressionRatioIn:  DWORD;
    dwCompressionRatioOut: DWORD;
    dwBps:                 DWORD;
    dwConnectDuration:     DWORD;
  end;
  {$ENDREGION}
{$ENDREGION}

{$REGION 'глобальные процедуры и функции'}
/// <summary>
///   Определение доступности RAS API
/// </summary>
/// <returns>
///   <list type="table">
///     <listheader>
///       <term>Результат</term>
///       <description>Описание</description>
///     </listheader>
///     <item>
///       <term>TRUE</term>
///       <description>RAS API доступно для работы</description>
///     </item>
///     <item>
///       <term>FALSE</term>
///       <description>RAS API не доступно</description>
///     </item>
///   </list>
/// </returns>
function IsRasApiAvailable: BOOL;
/// <summary>
///   Функция RasEnumConnections (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377284(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasEnumConnections(lpRasConn: LPRasConn2K; var lpcBufferSize: DWORD;
  var lpcConnections: DWORD): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasEnumConnectionsW';{$ENDIF}
/// <summary>
///   Функция RasEnumEntries (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377380(VS.85).aspx">
///   MSDN
/// </seealso>
function RasEnumEntries(Reserved: PWideChar; lpszPhonebook: PWideChar;
  lpRasEntryName: LPRasEntryNameW2K; var lpcBufferSize: DWORD; var lpcEntries: DWORD): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasEnumEntriesW';{$ENDIF}
/// <summary>
///   Функция RasGetEntryProperties (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377535(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasGetEntryProperties(lpszPhonebook: PWideChar; szEntry: PWideChar;
  var lpRasEntry: TRasEntryXP; var dwEntrySize: DWORD; lpbDeviceInfo: Pointer;
  var dwDeviceInfoSize: DWORD): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasGetEntryPropertiesW';{$ENDIF}
/// <summary>
///   Функция RasSetEntryProperties (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377827(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasSetEntryProperties(lpszPhonebook: PWideChar; szEntry: PWideChar;
  lpRasEntry: Pointer; dwEntrySize: DWORD; lpbDeviceInfo: Pointer; dwDeviceInfoSize: DWORD
  ): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasSetEntryPropertiesW';{$ENDIF}
/// <summary>
///   Функция RasGetEntryDialParams (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377529(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasGetEntryDialParams(lpszPhonebook: PWideChar; var lpRasDialParams: TRasDialParamsNT4;
  var lpfPassword: BOOL): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasGetEntryDialParamsW';{$ENDIF}
/// <summary>
///   Функция RasSetEntryDialParams (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377821(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasSetEntryDialParams(lpszPhonebook: PWideChar; var lpRasDialParams: TRasDialParamsNT4;
  fRemovePassword: BOOL): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasSetEntryDialParamsW';{$ENDIF}
/// <summary>
///   Функция RasDial (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377004(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasDial(lpRasDialExtensions: LPRasDialExtensionsW2K; lpszPhonebook: PWideChar;
  lpRasDialParams: LPRasDialParamsNT4; dwNotifierType: DWORD; lpvNotifier: Pointer;
  var hRasConn: THRasConn): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasDialW';{$ENDIF}
/// <summary>
///   Функция RasHangUp (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377567(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasHangUp(hRasConn: THRasConn): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasHangUpW';{$ENDIF}
/// <summary>
///   Функция RasGetConnectStatus (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377503(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasGetConnectStatus(hRasConn: THRasConn; lpRasConnStatus: LPRASConnStatusNT4): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasGetConnectStatusW';{$ENDIF}
/// <summary>
///   Функция RasGetConnectionStatistics (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa377499(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasGetConnectionStatistics(hRasConn: THRasConn; lpStatistics: LPRasStats): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasGetConnectionStatistics';{$ENDIF}
/// <summary>
///   Функция RasClearConnectionStatistics (RAS API)
/// </summary>
/// <seealso href="https://msdn.microsoft.com/en-us/library/aa376722(v=vs.85).aspx">
///   MSDN
/// </seealso>
function RasClearConnectionStatistics(hRasConn: THRasConn): DWORD;
  {$IFNDEF DYNAMIC_API}stdcall; external 'rasapi32.dll' name 'RasClearConnectionStatistics';{$ENDIF}
{$ENDREGION}