在Delphi中使用RAS实现对系统拨号的控制

 在Delphi中使用RAS实现对系统拨号的控制

  在企业应用中有时候希望能在程序中实现对拨号网络的控制，以实现自动拨号、自动断开网络。在尝试了多种方式之后，认为RAS是一种比较稳定的方式。在google了网上一些资料后，现整理如下：

一、首先需要有个针对RAS的头文件定义，Ras.pas代码如下

 

{* Copyright (c) 1992-1995, Microsoft Corporation, all rights reserved ** ** ras.h ** Remote Access external API ** Public header for external API clients *} { Delphi conversion by Davide Moretti <dmoretti@iper.net> } { Note: All functions and structures defaults to Ansi. If you want to use Unicode structs and funcs, use the names ending with 'W' } unit Ras; interface uses Windows, Messages; const { These are from lmcons.h } DNLEN = 15; // Maximum domain name length UNLEN = 256; // Maximum user name length PWLEN = 256; // Maximum password length NETBIOS_NAME_LEN = 16; // NetBIOS net name (bytes) RAS_MaxDeviceType = 16; RAS_MaxPhoneNumber = 128; RAS_MaxIpAddress = 15; RAS_MaxIpxAddress = 21; { Note: you must define WINVER31 before compiling this unit to get the sizes for the 3.x version of RAS. The default is for Windows 95 and NT 4.0 } {$IFDEF WINVER31} {Version 3.x sizes } RAS_MaxEntryName = 20; RAS_MaxDeviceName = 32; RAS_MaxCallbackNumber = 48; {$ELSE} {Version 4.x sizes } RAS_MaxEntryName = 256; RAS_MaxDeviceName = 128; RAS_MaxCallbackNumber = RAS_MaxPhoneNumber; {$ENDIF} type LPHRasConn = ^THRasConn; THRasConn = Longint; {* Identifies an active RAS connection. (See RasEnumConnections) *} LPRasConnW = ^TRasConnW; TRasConnW = record dwSize: Longint; hrasconn: THRasConn; szEntryName: Array[0..RAS_MaxEntryName] of WideChar; {$IFNDEF WINVER31} szDeviceType: Array[0..RAS_MaxDeviceType] of WideChar; szDeviceName: Array[0..RAS_MaxDeviceName] of WideChar; {$ENDIF} end; LPRasConnA = ^TRasConnA; TRasConnA = record dwSize: Longint; hrasconn: THRasConn; szEntryName: Array[0..RAS_MaxEntryName] of AnsiChar; {$IFNDEF WINVER31} szDeviceType: Array[0..RAS_MaxDeviceType] of AnsiChar; szDeviceName: Array[0..RAS_MaxDeviceName] of AnsiChar; {$ENDIF} end; LPRasConn = ^TRasConn; TRasConn = TRasConnA; const {* Enumerates intermediate states to a connection. (See RasDial) *} RASCS_PAUSED = $1000; RASCS_DONE = $2000; type LPRasConnState = ^TRasConnState; TRasConnState = Integer; const RASCS_OpenPort = 0; RASCS_PortOpened = 1; RASCS_ConnectDevice = 2; RASCS_DeviceConnected = 3; RASCS_AllDevicesConnected = 4; RASCS_Authenticate = 5; RASCS_AuthNotify = 6; RASCS_AuthRetry = 7; RASCS_AuthCallback = 8; RASCS_AuthChangePassword = 9; RASCS_AuthProject = 10; RASCS_AuthLinkSpeed = 11; RASCS_AuthAck = 12; RASCS_ReAuthenticate = 13; RASCS_Authenticated = 14; RASCS_PrepareForCallback = 15; RASCS_WaitForModemReset = 16; RASCS_WaitForCallback = 17; RASCS_Projected = 18; {$IFNDEF WINVER31} RASCS_StartAuthentication = 19; RASCS_CallbackComplete = 20; RASCS_LogonNetwork = 21; {$ENDIF} RASCS_Interactive = RASCS_PAUSED; RASCS_RetryAuthentication = RASCS_PAUSED + 1; RASCS_CallbackSetByCaller = RASCS_PAUSED + 2; RASCS_PasswordExpired = RASCS_PAUSED + 3; RASCS_Connected = RASCS_DONE; RASCS_Disconnected = RASCS_DONE + 1; type {* Describes the status of a RAS connection. (See RasConnectionStatus) *} LPRasConnStatusW = ^TRasConnStatusW; TRasConnStatusW = record dwSize: Longint; rasconnstate: TRasConnState; dwError: LongInt; szDeviceType: Array[0..RAS_MaxDeviceType] of WideChar; szDeviceName: Array[0..RAS_MaxDeviceName] of WideChar; end; LPRasConnStatusA = ^TRasConnStatusA; TRasConnStatusA = record dwSize: Longint; rasconnstate: TRasConnState; dwError: LongInt; szDeviceType: Array[0..RAS_MaxDeviceType] of AnsiChar; szDeviceName: Array[0..RAS_MaxDeviceName] of AnsiChar; end; LPRasConnStatus = ^TRasConnStatus; TRasConnStatus = TRasConnStatusA; {* Describes connection establishment parameters. (See RasDial) *} LPRasDialParamsW = ^TRasDialParamsW; TRasDialParamsW = record dwSize: LongInt; 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; end; LPRasDialParamsA = ^TRasDialParamsA; TRasDialParamsA = record dwSize: LongInt; szEntryName: Array[0..RAS_MaxEntryName] of AnsiChar; szPhoneNumber: Array[0..RAS_MaxPhoneNumber] of AnsiChar; szCallbackNumber: Array[0..RAS_MaxCallbackNumber] of AnsiChar; szUserName: Array[0..UNLEN] of AnsiChar; szPassword: Array[0..PWLEN] of AnsiChar; szDomain: Array[0..DNLEN] of AnsiChar; end; LPRasDialParams = ^TRasDialParams; TRasDialParams = TRasDialParamsA; {* Describes extended connection establishment options. (See RasDial) *} LPRasDialExtensions = ^TRasDialExtensions; TRasDialExtensions = record dwSize: LongInt; dwfOptions: LongInt; hwndParent: HWND; reserved: LongInt; end; {* 'dwfOptions' bit flags. *} const RDEOPT_UsePrefixSuffix = $00000001; RDEOPT_PausedStates = $00000002; RDEOPT_IgnoreModemSpeaker = $00000004; RDEOPT_SetModemSpeaker = $00000008; RDEOPT_IgnoreSoftwareCompression = $00000010; RDEOPT_SetSoftwareCompression = $00000020; type {* Describes an enumerated RAS phone book entry name. (See RasEntryEnum) *} LPRasEntryNameW = ^TRasEntryNameW; TRasEntryNameW = record dwSize: Longint; szEntryName: Array[0..RAS_MaxEntryName] of WideChar; end; LPRasEntryNameA = ^TRasEntryNameA; TRasEntryNameA = record dwSize: Longint; szEntryName: Array[0..RAS_MaxEntryName] of AnsiChar; end; LPRasEntryName = ^TRasEntryName; TRasEntryName = TRasEntryNameA; {* Protocol code to projection data structure mapping. *} LPRasProjection = ^TRasProjection; TRasProjection = Integer; const RASP_Amb = $10000; RASP_PppNbf = $803F; RASP_PppIpx = $802B; RASP_PppIp = $8021; type {* Describes the result of a RAS AMB (Authentication Message Block) ** projection. This protocol is used with NT 3.1 and OS/2 1.3 downlevel ** RAS servers. *} LPRasAmbW = ^TRasAmbW; TRasAmbW = record dwSize: Longint; dwError: Longint; szNetBiosError: Array[0..NETBIOS_NAME_LEN] of WideChar; bLana: Byte; end; LPRasAmbA = ^TRasAmbA; TRasAmbA = record dwSize: Longint; dwError: Longint; szNetBiosError: Array[0..NETBIOS_NAME_LEN] of AnsiChar; bLana: Byte; end; LPRasAmb = ^TRasAmb; TRasAmb = TRasAmbA; {* Describes the result of a PPP NBF (Ne