ras.pas

Delphi的另一款钢琴软件

  TRASAutoDialEntry = TRASAutoDialEntryA;

  PRASAutoDialEntryW = TRASAutoDialEntryW;
  PRASAutoDialEntryA = TRASAutoDialEntryA;
  PRASAutoDialEntry = TRASAutoDialEntry;


(* External RAS API function prototypes.
*)

  PPChar = ^PChar;
  PPWideChar = ^PWideChar;

TfnRasDialA = function (
                 RASDialExtension : PRASDialExtensions;
                 lpszPhonebook : PChar;
                 const RASDialParams : TRASDialParamsA;
                 dwNotifierType : DWORD;
                 pNotifier : pointer;
                 var hRasConn : hRasCon) : DWORD; stdcall;

TfnRasDialW = function (
                 RASDialExtension : PRASDialExtensions;
                 lpszPhonebook : PWideChar;
                 const RASDialParams : TRASDialParamsW;
                 dwNotifierType : DWORD;
                 pNotifier : pointer;
                 var hRasConn : hRasCon) : DWORD; stdcall;

TfnRasDial = function (
                 RASDialExtension : PRASDialExtensions;
                 lpszPhonebook : PChar;
                 const RASDialParams : TRASDialParams;
                 dwNotifierType : DWORD;
                 pNotifier : pointer;
                 var hRasConn : hRasCon) : DWORD; stdcall;


TfnRasEnumConnectionsA = function ( connections : PRASConnA; var cb, cConnections : DWORD) : DWORD; stdcall;
TfnRasEnumConnectionsW = function ( connections : PRASConnW; var cb, cConnections : DWORD) : DWORD; stdcall;
TfnRasEnumConnections = function ( connections : PRASConn; var cb, cConnections : DWORD) : DWORD; stdcall;

TfnRasEnumEntriesA = function (
                 lpszReserved, lpszPhonebook : PChar;
                 pEntryname : PRASENTRYNAMEA;
                 var cb, cEntries : DWORD) : DWORD; stdcall;

TfnRasEnumEntriesW = function ( 
                 lpszReserved, lpszPhonebook : PWideChar;
                 pEntryname : PRASENTRYNAMEW;
                 var cb, cEntries : DWORD) : DWORD; stdcall;

TfnRasEnumEntries = function ( 
                 lpszReserved, lpszPhonebook : PChar;
                 pEntryname : PRASENTRYNAME;
                 var cb, cEntries : DWORD) : DWORD; stdcall;

TfnRasGetConnectStatusA = function ( hRasConn : HRASCON; var status : TRASConnStatusA) : DWORD; stdcall;
TfnRasGetConnectStatusW = function ( hRasConn : HRASCON; var status : TRASConnStatusW) : DWORD; stdcall;
TfnRasGetConnectStatus = function ( hRasConn : HRASCON; var status : TRASConnStatus) : DWORD; stdcall;

TfnRasGetErrorStringA = function ( error : UINT; errorString : PChar; cb : DWORD ) : DWORD; stdcall;
TfnRasGetErrorStringW = function ( error : UINT; errorString : PWideChar; cb : DWORD ) : DWORD; stdcall;
TfnRasGetErrorString = function ( error : UINT; errorString : PChar; cb : DWORD ) : DWORD; stdcall;

TfnRASHangUpA = function ( hRasConn : HRASCON) : DWORD; stdcall;
TfnRASHangUpW = function ( hRasConn : HRASCON) : DWORD; stdcall;
TfnRASHangUp = function ( hRasConn : HRASCON) : DWORD; stdcall;

TfnRasGetProjectionInfoA = function (
                 hRasConn : HRASCON;
                 projection : TRasProjection;
                 lpProjection : pointer;
                 var cb : DWORD) : DWORD; stdcall;

TfnRasGetProjectionInfoW = function ( 
                 hRasConn : HRASCON;
                 projection : TRasProjection;
                 lpProjection : pointer;
                 var cb : DWORD) : DWORD; stdcall;

TfnRasGetProjectionInfo = function ( 
                 hRasConn : HRASCON;
                 projection : TRasProjection;
                 lpProjection : pointer;
                 var cb : DWORD) : DWORD; stdcall;

TfnRasCreatePhonebookEntryA = function ( HWND : hWnd; lpszPhonebook : PChar) : DWORD; stdcall;
TfnRasCreatePhonebookEntryW = function ( HWND : hWnd; lpszPhonebook : PWideChar) : DWORD; stdcall;
TfnRasCreatePhonebookEntry = function ( HWND : hWnd; lpszPhonebook : PChar) : DWORD; stdcall;

TfnRasEditPhonebookEntryA = function ( HWND : hWnd; lpszPhonebook, lpszEntryname : PChar) : DWORD; stdcall;
TfnRasEditPhonebookEntryW = function ( HWND : hWnd; lpszPhonebook, lpszEntryname : PWideChar) : DWORD; stdcall;
TfnRasEditPhonebookEntry = function ( HWND : hWnd; lpszPhonebook, lpszEntryname : PChar) : DWORD; stdcall;

TfnRasSetEntryDialParamsA = function ( lpszPhonebook : PChar; const rasDialParams : TRasDialParamsA; fRemovePassword : BOOL) : DWORD; stdcall;
TfnRasSetEntryDialParamsW = function ( lpszPhonebook : PWideChar; const rasDialParams : TRasDialParamsW; fRemovePassword : BOOL) : DWORD; stdcall;
TfnRasSetEntryDialParams = function ( lpszPhonebook : PChar; const rasDialParams : TRasDialParams; fRemovePassword : BOOL) : DWORD; stdcall;

TfnRasGetEntryDialParamsA = function ( lpszPhonebook : PChar; var rasDialParams : TRasDialParamsA; var fRemovePassword : BOOL) : DWORD; stdcall;
TfnRasGetEntryDialParamsW = function ( lpszPhonebook : PWideChar; var rasDialParams : TRasDialParamsW; var fRemovePassword : BOOL) : DWORD; stdcall;
TfnRasGetEntryDialParams = function ( lpszPhonebook : PChar; var rasDialParams : TRasDialParams; var fRemovePassword : BOOL) : DWORD; stdcall;

TfnRasEnumDevicesA = function (devices : PRASDevInfoA; var cb, cDevices : DWORD) : DWORD; stdcall;
TfnRasEnumDevicesW = function (devices : PRASDevInfoW; var cb, cDevices : DWORD) : DWORD; stdcall;
TfnRasEnumDevices = function (devices : PRASDevInfo; var cb, cDevices : DWORD) : DWORD; stdcall;

TfnRasGetCountryInfoA = function ( countryInfo : PRasCtryInfoA; var cb : DWORD) : DWORD; stdcall;
TfnRasGetCountryInfoW = function ( countryInfo : PRasCtryInfoW; var cb : DWORD) : DWORD; stdcall;
TfnRasGetCountryInfo = function ( countryInfo : PRasCtryInfo; var cb : DWORD) : DWORD; stdcall;

TfnRasGetEntryPropertiesA = function (
                  lpszPhonebook, lpszEntry : PChar;
                  lpRasEntry : PRasEntryA;
                  EntrySize : PDWORD;
                  DeviceInfo : PBYTE;
                  DeviceInfoSize : PDWORD) : DWORD; stdcall;

TfnRasGetEntryPropertiesW = function (
                  lpszPhonebook, lpszEntry : PWideChar;
                  lpRasEntry : PRasEntryW;
                  EntrySize : PDWORD;
                  DeviceInfo : PBYTE;
                  DeviceInfoSize : PDWORD) : DWORD; stdcall;

TfnRasGetEntryProperties = function (
                  lpszPhonebook, lpszEntry : PChar;
                  lpRasEntry : PRasEntry;
                  EntrySize : PDWORD;
                  DeviceInfo : PBYTE;
                  DeviceInfoSize : PDWORD) : DWORD; stdcall;

TfnRasSetEntryPropertiesA = function (
                  lpszPhonebook, lpszEntry : PChar;
                  const RasEntry : TRasEntryA;
                  EntrySize : DWORD;
                  DeviceInfo : PBYTE;
                  DeviceInfoSize : DWORD) : DWORD; stdcall;

TfnRasSetEntryPropertiesW = function ( 
                  lpszPhonebook, lpszEntry : PWideChar;
                  const RasEntry : TRasEntryW;
                  EntrySize : DWORD;
                  DeviceInfo : PBYTE;
                  DeviceInfoSize : DWORD) : DWORD; stdcall;

TfnRasSetEntryProperties = function ( 
                  lpszPhonebook, lpszEntry : PChar;
                  const RasEntry : TRasEntry;
                  EntrySize : DWORD;
                  DeviceInfo : PBYTE;
                  DeviceInfoSize : DWORD) : DWORD; stdcall;

TfnRasRenameEntryA = function ( lpszPhonebook, lpszOldEntry, lpszNewEntry : PChar) : DWORD; stdcall;
TfnRasRenameEntryW = function ( lpszPhonebook, lpszOldEntry, lpszNewEntry : PWideChar) : DWORD; stdcall;
TfnRasRenameEntry = function ( lpszPhonebook, lpszOldEntry, lpszNewEntry : PChar) : DWORD; stdcall;

TfnRasDeleteEntryA = function ( lpszPhonebook, lpszEntry : PChar) : DWORD; stdcall;
TfnRasDeleteEntryW = function ( lpszPhonebook, lpszEntry : PWideChar) : DWORD; stdcall;
TfnRasDeleteEntry = function ( lpszPhonebook, lpszEntry : PChar) : DWORD; stdcall;

TfnRasValidateEntryNameA = function ( lpszPhonebook, lpszEntry : PChar) : DWORD; stdcall;
TfnRasValidateEntryNameW = function ( lpszPhonebook, lpszEntry : PWideChar) : DWORD; stdcall;
TfnRasValidateEntryName = function ( lpszPhonebook, lpszEntry : PChar) : DWORD; stdcall;

TfnRasGetSubEntryHandleA = function ( hRasConn : HRASCON; dwSubEntry : DWORD; var handle : HRASCON) : DWORD; stdcall;
TfnRasGetSubEntryHandleW = function ( hRasConn : HRASCON; dwSubEntry : DWORD; var handle : HRASCON) : DWORD; stdcall;
TfnRasGetSubEntryHandle = function ( hRasConn : HRASCON; dwSubEntry : DWORD; var handle : HRASCON) : DWORD; stdcall;
TfnRasGetCredentialsA = function ( lpszPhonebook, lpszEntry : PChar; var Credentials : TRASCredentialsA) : DWORD; stdcall;
TfnRasGetCredentialsW = function ( lpszPhonebook, lpszEntry : PChar; var Credentials : TRASCredentialsW) : DWORD; stdcall;
TfnRasGetCredentials = function ( lpszPhonebook, lpszEntry : PChar; var Credentials : TRASCredentials) : DWORD; stdcall;
TfnRasSetCredentialsA = function ( lpszPhonebook, lpszEntry : PChar; const Credentials : TRASCredentialsA; fClearConnections : boolean) : DWORD; stdcall;
TfnRasSetCredentialsW = function ( lpszPhonebook, lpszEntry : PChar; const Credentials : TRASCredentialsW; fClearConnections : boolean) : DWORD; stdcall;
TfnRasSetCredentials = function ( lpszPhonebook, lpszEntry : PChar; const Credentials : TRASCredentials; fClearConnections : boolean) : DWORD; stdcall;
TfnRasConnectionNotificationA = function ( hRasConn : HRASCON; hEvent : THandle; dwFlags : DWORD ) : DWORD; stdcall;
TfnRasConnectionNotificationW = function ( hRasConn : HRASCON; hEvent : THandle; dwFlags : DWORD ) : DWORD; stdcall;
TfnRasConnectionNotification = function ( hRasConn : HRASCON; hEvent : THandle; dwFlags : DWORD ) : DWORD; stdcall;
TfnRasGetSubEntryPropertiesA = function ( lpszPhonebook, lpszEntry : PChar; dwSubEntry : DWORD; subEntry : PRasSubEntryA; pcb : PDWORD) : DWORD; stdcall;
TfnRasGetSubEntryPropertiesW = function ( lpszPhonebook, lpszEntry : PWideChar; dwSubEntry : DWORD; subEntry : PRasSubEntryW; pcb : PDWORD) : DWORD; stdcall;
TfnRasGetSubEntryProperties = function ( lpszPhonebook, lpszEntry : PChar; dwSubEntry : DWORD; subEntry : PRasSubEntry; pcb : PDWORD) : DWORD; stdcall;
TfnRasSetSubEntryPropertiesA = function ( lpszPhonebook, lpszEntry : PChar; dwSubEntry : DWORD; subEntry : PRasSubEntryA; cb : DWORD) : DWORD; stdcall;
TfnRasSetSubEntryPropertiesW = function ( lpszPhonebook, lpszEntry : PWideChar; dwSubEntry : DWORD; subEntry : PRasSubEntryW; cb : DWORD) : DWORD; stdcall;
TfnRasSetSubEntryProperties = function ( lpszPhonebook, lpszEntry : PChar; dwSubEntry : DWORD; subEntry : PRasSubEntry; cb : DWORD) : DWORD; stdcall;
TfnRasGetAutodialAddressA = function ( lpszAddress : PChar; lpdwReserved : PDWORD; entries : PRASAutoDialEntryA; var cb, cEntries : DWORD) : DWORD; stdcall;
TfnRasGetAutodialAddressW = function ( lpszAddress : PWideChar; lpdwReserved : PDWORD; entries : PRASAutoDialEntryW; var cb, cEntries : DWORD) : DWORD; stdcall;
TfnRasGetAutodialAddress = function ( lpszAddress : PChar; lpdwReserved : PDWORD; entries : PRASAutoDialEntryA; var cb, cEntries : DWORD) : DWORD; stdcall;
TfnRasSetAutodialAddressA = function ( lpszAddress : PChar; dwReserved : DWORD; entries : PRASAutoDialEntry; cb, cEntries : DWORD) : DWORD; stdcall;
TfnRasSetAutodialAddressW = function ( lpszAddress : PWideChar; dwReserved : DWORD; entries : PRASAutoDialEntryW; cb, cEntries : DWORD) : DWORD; stdcall;
TfnRasSetAutodialAddress = function ( lpszAddress : PChar; dwReserved : DWORD; entries : PRASAutoDialEntry; cb, cEntries : DWORD) : DWORD; stdcall;
TfnRasEnumAutodialAddressesA = function ( addresses : PPChar; var cbAddresses, cAddresses : DWORD) : DWORD; stdcall;
TfnRasEnumAutodialAddressesW = function ( addresses : PPWideChar; var cbAddresses, cAddresses : DWORD) : DWORD; stdcall;
TfnRasEnumAutodialAddresses = function ( addresses : PPChar; var cbAddresses, cAddresses : DWORD) : DWORD; stdcall;
TfnRasGetAutodialEnableA = function ( dwDiallingLocation : DWORD; var enabled : BOOL) : DWORD; stdcall;
TfnRasGetAutodialEnableW = function ( dwDiallingLocation : DWORD; var enabled : BOOL) : DWORD; stdcall;
TfnRasGetAutodialEnable = function ( dwDiallingLocation : DWORD; var enabled : BOOL) : DWORD; stdcall;
TfnRasSetAutodialEnableA = function ( dwDiallingLocation : DWORD; enabled : BOOL) : DWORD; stdcall;
TfnRasSetAutodialEnableW = function ( dwDiallingLocation : DWORD; enabled : BOOL) : DWORD; stdcall;
TfnRasSetAutodialEnable = function ( dwDiallingLocation : DWORD; enabled : BOOL) : DWORD; stdcall;
TfnRasGetAutodialParamA = function ( dwDiallingLocation : DWORD; param : pointer; var cb : DWORD) : DWORD; stdcall;
TfnRasGetAutodialParamW = function ( dwDiallingLocation : DWORD; param : pointer; var cb : DWORD) : DWORD; stdcall;
TfnRasGetAutodialParam = function ( dwDiallingLocation : DWORD; param : pointer; var cb : DWORD) : DWORD; stdcall;
TfnRasSetAutodialParamA = function ( dwDiallingLocation : DWORD; param : pointer; cb : DWORD) : DWORD; stdcall;
TfnRasSetAutodialParamW = function ( dwDiallingLocation : DWORD; param : pointer; cb : DWORD) : DWORD; stdcall;
TfnRasSetAutodialParam = function ( dwDiallingLocation : DWORD; param : pointer; cb : DWORD) : DWORD; stdcall;

var
RasDialA : TfnRasDialA = Nil;
RasDialW : TfnRasDialW = Nil;
RasDial  : TfnRasDial  = Nil;

RasEnumConnectionsA : TfnRasEnumConnectionsA = Nil;
RasEnumConnectionsW : TfnRasEnumConnectionsW = Nil;
RasEnumConnections : TfnRasEnumConnections = Nil;

RasEnumEntriesA : TfnRasEnumEntriesA = Nil;
RasEnumEntriesW : TfnRasEnumEntriesW = Nil;
RasEnumEntries : TfnRasEnumEntries = Nil;

RasGetConnectStatusA : TfnRasGetConnectStatusA = Nil;
RasGetConnectStatusW : TfnRasGetConnectStatusW = Nil;
RasGetConnectStatus : TfnRasGetConnectStatus = Nil;

RasGetErrorStringA : TfnRasGetErrorStringA = Nil;
RasGetErrorStringW : TfnRasGetErrorStringW = Nil;
RasGetErrorString : TfnRasGetErrorString = Nil;

RASHangUpA : TfnRASHangUpA = Nil;
RASHangUpW : TfnRASHangUpW = Nil;
RASHangUp : TfnRASHangUp = Nil;

RasGetProjectionInfoA : TfnRasGetProjectionInfoA = Nil;
RasGetProjectionInfoW : TfnRasGetProjectionInfoW = Nil;
RasGetProjectionInfo : TfnRasGetProjectionInfo = Nil;
RasCreatePhonebookEntryA : TfnRasCreatePhonebookEntryA = Nil;
RasCreatePhonebookEntryW : TfnRasCreatePhonebookEntryW = Nil;
RasCreatePhonebookEntry : TfnRasCreatePhonebookEntry = Nil;

RasEditPhonebookEntryA : TfnRasEditPhonebookEntryA = Nil;
RasEditPhonebookEntryW : TfnRasEditPhonebookEntryW = Nil;
RasEditPhonebookEntry : TfnRasEditPhonebookEntry = Nil;

RasSetEntryDialParamsA : TfnRasSetEntryDialParamsA = Nil;
RasSetEntryDialParamsW : TfnRasSetEntryDialParamsW = Nil;
RasSetEntryDialParams : TfnRasSetEntryDialParams = Nil;

RasGetEntryDialParamsA : TfnRasGetEntryDialParamsA = Nil;
RasGetEntryDialParamsW : TfnRasGetEntryDialParamsW = Nil;
RasGetEntryDialParams : TfnRasGetEntryDialParams = Nil;

RasEnumDevicesA : TfnRasEnumDevicesA = Nil;
RasEnumDevicesW : TfnRasEnumDevicesW = Nil;
RasEnumDevices : TfnRasEnumDevices = Nil;

RasGetCountryInfoA : TfnRasGetCountryInfoA = Nil;
RasGetCountryInfoW : TfnRasGetCountryInfoW = Nil;
RasGetCountryInfo : TfnRasGetCountryInfo = Nil;

RasGetEntryPropertiesA : TfnRasGetEntryPropertiesA = Nil;
RasGetEntryPropertiesW : TfnRasGetEntryPropertiesW = Nil;
RasGetEntryProperties : TfnRasGetEntryProperties = Nil;
RasSetEntryPropertiesA : TfnRasSetEntryPropertiesA = Nil;
RasSetEntryPropertiesW : TfnRasSetEntryPropertiesW = Nil;
RasSetEntryProperties : TfnRasSetEntryProperties = Nil;
RasRenameEntryA : TfnRasRenameEntryA = Nil;
RasRenameEntryW : TfnRasRenameEntryW = Nil;
RasRenameEntry : TfnRasRenameEntry = Nil;
RasDeleteEntryA : TfnRasDeleteEntryA = Nil;
RasDeleteEntryW : TfnRasDeleteEntryW = Nil;
RasDeleteEntry : TfnRasDeleteEntry = Nil;

RasValidateEntryNameA : TfnRasValidateEntryNameA = Nil;
RasValidateEntryNameW : TfnRasValidateEntryNameW = Nil;
RasValidateEntryName : TfnRasValidateEntryName = Nil;

RasGetSubEntryHandleA : TfnRasGetSubEntryHandleA = Nil;
RasGetSubEntryHandleW : TfnRasGetSubEntryHandleW = Nil;
RasGetSubEntryHandle : TfnRasGetSubEntryHandle = Nil;
RasGetCredentialsA : TfnRasGetCredentialsA = Nil;
RasGetCredentialsW : TfnRasGetCredentialsW = Nil;
RasGetCredentials : TfnRasGetCredentials = Nil;
RasSetCredentialsA : TfnRasSetCredentialsA = Nil;
RasSetCredentialsW : TfnRasSetCredentialsW = Nil;
RasSetCredentials : TfnRasSetCredentials = Nil;
RasConnectionNotificationA : TfnRasConnectionNotificationA = Nil;
RasConnectionNotificationW : TfnRasConnectionNotificationW = Nil;
RasConnectionNotification : TfnRasConnectionNotification = Nil;
RasGetSubEntryPropertiesA : TfnRasGetSubEntryPropertiesA = Nil;
RasGetSubEntryPropertiesW : TfnRasGetSubEntryPropertiesW = Nil;
RasGetSubEntryProperties : TfnRasGetSubEntryProperties = Nil;
RasSetSubEntryPropertiesA : TfnRasSetSubEntryPropertiesA = Nil;
RasSetSubEntryPropertiesW : TfnRasSetSubEntryPropertiesW = Nil;
RasSetSubEntryProperties : TfnRasSetSubEntryProperties = Nil;
RasGetAutodialAddressA : TfnRasGetAutodialAddressA = Nil;
RasGetAutodialAddressW : TfnRasGetAutodialAddressW = Nil;
RasGetAutodialAddress : TfnRasGetAutodialAddress = Nil;
RasSetAutodialAddressA : TfnRasSetAutodialAddressA = Nil;
RasSetAutodialAddressW : TfnRasSetAutodialAddressW = Nil;
RasSetAutodialAddress : TfnRasSetAutodialAddress = Nil;
RasEnumAutodialAddressesA : TfnRasEnumAutodialAddressesA = Nil;
RasEnumAutodialAddressesW : TfnRasEnumAutodialAddressesW = Nil;
RasEnumAutodialAddresses : TfnRasEnumAutodialAddresses = Nil;
RasGetAutodialEnableA : TfnRasGetAutodialEnableA = Nil;
RasGetAutodialEnableW : TfnRasGetAutodialEnableW = Nil;
RasGetAutodialEnable : TfnRasGetAutodialEnable = Nil;
RasSetAutodialEnableA : TfnRasSetAutodialEnableA = Nil;
RasSetAutodialEnableW : TfnRasSetAutodialEnableW = Nil;
RasSetAutodialEnable : TfnRasSetAutodialEnable = Nil;
RasGetAutodialParamA : TfnRasGetAutodialParamA = Nil;
RasGetAutodialParamW : TfnRasGetAutodialParamW = Nil;
RasGetAutodialParam : TfnRasGetAutodialParam = Nil;
RasSetAutodialParamA : TfnRasSetAutodialParamA = Nil;
RasSetAutodialParamW : TfnRasSetAutodialParamW = Nil;
RasSetAutodialParam : TfnRasSetAutodialParam = Nil;

function RasGetStatusString (status : Integer) : string;
function InitRasLibrary : boolean;
procedure FreeRASLibrary;

implementation