RASDIALPARAMSData : RASDIALPARAMS; 里面的 RASDIALPARAMS 应该 uses 哪个DCU？(100分)

RASDIALPARAMSData : RASDIALPARAMS; 里面的 RASDIALPARAMS 应该 uses 哪个DCU？

顺便问一下，我如何可以知道那些“类”是属于那些“包”的呢？

有没有一份对应的列表？

看帮助
类的帮助中都写了

对不起,这个结构Delphi中好像没写,sorry

在WIN32。HTLP中有提到这个类，但是，我该引用（USES）那一个包
来DECALER 这个类。。。。就不知道了

delphi好象没有
有这个试试：
{$F+}
unit RAS_API32;

interface

uses WinTypes, WinProcs, Dialogs;
{ Copyright (c) 1992, Microsoft Corporation, all rights reserved
Note: The 'dwSize' member of a structure X must be set to sizeof(X)
before calling the associated API, otherwise ERROR_INVALID_SIZE is
returned. The APIs determine the size using 2-byte packing (the
default for Microsoft compilers when no /Zp<n> option is supplied).
Users requiring non-default packing can use the 'dwSize' values
listed next to each 'dwSize' member in place of sizeof(X). }

const
UNLEN = 256;
PWLEN = 256;
DNLEN = 15;
RAS_MaxEntryName = 256;
RAS_MaxDeviceName = 128;
RAS_MaxDeviceType = 16;
//RAS_MaxParamKey = 32;
//RAS_MaxParamValue = 128;
RAS_MaxPhoneNumber = 128;
RAS_MaxCallbackNumber = RAS_MaxPhoneNumber;

Type
//UINT = Word;
PHRASConn = ^HRASConn;
HRASConn = DWORD;


{ Pass this string to the RegisterWindowMessage() API to get the message
** number that will be used for notifications on the hwnd you pass to the
** RasDial() API. WM_RASDIALEVENT is used only if a unique message cannot be
** registered. }
const
RASDialEvent = 'RASDialEvent';
WM_RASDialEvent = $0CCCD;
{ Enumerates intermediate states to a Connection. (See RasDial) }
RASCS_Paused = $1000;
RASCS_Done = $2000;

RASBase = 600;
Success = 0;

{ Error Codes }
PENDING = (RASBase + 0);
ERROR_INVALID_PORT_HANDLE = (RASBase + 1);
ERROR_PORT_ALREADY_OPEN = (RASBase + 2);
ERROR_BUFFER_TOO_SMALL = (RASBase + 3);
ERROR_WRONG_INFO_SPECIFIED = (RASBase + 4);
ERROR_CANNOT_SET_PORT_INFO = (RASBase + 5);
ERROR_PORT_NOT_ConnECTED = (RASBase + 6);
ERROR_EVENT_INVALID = (RASBase + 7);
ERROR_DEVICE_DOES_NOT_EXIST = (RASBase + 8);
ERROR_DEVICETYPE_DOES_NOT_EXIST = (RASBase + 9);
ERROR_INVALID_BUFFER = (RASBase + 10);
ERROR_ROUTE_NOT_AVAILABLE = (RASBase + 11);
ERROR_ROUTE_NOT_ALLOCATED = (RASBase + 12);
ERROR_INVALID_COMPRESSION_SPECIFIED = (RASBase + 13);
ERROR_OUT_OF_BUFFERS = (RASBase + 14);
ERROR_PORT_NOT_FOUND = (RASBase + 15);
ERROR_ASYNC_REQUEST_PENDING = (RASBase + 16);
ERROR_ALREADY_DISConnECTING = (RASBase + 17);
ERROR_PORT_NOT_OPEN = (RASBase + 18);
ERROR_PORT_DISConnECTED = (RASBase + 19);
ERROR_NO_ENDPOINTS = (RASBase + 20);
ERROR_CANNOT_OPEN_PHONEBOOK = (RASBase + 21);
ERROR_CANNOT_LOAD_PHONEBOOK = (RASBase + 22);
ERROR_CANNOT_FIND_PHONEBOOK_ENTRY = (RASBase + 23);
ERROR_CANNOT_WRITE_PHONEBOOK = (RASBase + 24);
ERROR_CORRUPT_PHONEBOOK = (RASBase + 25);
ERROR_CANNOT_LOAD_STRING = (RASBase + 26);
ERROR_KEY_NOT_FOUND = (RASBase + 27);
ERROR_DISConnECTION = (RASBase + 28);
ERROR_REMOTE_DISConnECTION = (RASBase + 29);
ERROR_HARDWARE_FAILURE = (RASBase + 30);
ERROR_USER_DISConnECTION = (RASBase + 31);
ERROR_INVALID_SIZE = (RASBase + 32);
ERROR_PORT_NOT_AVAILABLE = (RASBase + 33);
ERROR_CANNOT_PROJECT_CLIENT = (RASBase + 34);
ERROR_UNKNOWN = (RASBase + 35);
ERROR_WRONG_DEVICE_ATTACHED = (RASBase + 36);
ERROR_BAD_STRING = (RASBase + 37);
ERROR_REQUEST_TIMEOUT = (RASBase + 38);
ERROR_CANNOT_GET_LANA = (RASBase + 39);
ERROR_NETBIOS_ERROR = (RASBase + 40);
ERROR_SERVER_OUT_OF_RESOURCES = (RASBase + 41);
ERROR_NAME_EXISTS_ON_NET = (RASBase + 42);
ERROR_SERVER_GENERAL_NET_FAILURE = (RASBase + 43);
WARNING_MSG_ALIAS_NOT_ADDED = (RASBase + 44);
ERROR_AUTH_INTERNAL = (RASBase + 45);
ERROR_RESTRICTED_LOGON_HOURS = (RASBase + 46);
ERROR_ACCT_DISABLED = (RASBase + 47);
ERROR_PASSWD_EXPIRED = (RASBase + 48);
ERROR_NO_DIALIN_PERMISSION = (RASBase + 49);
ERROR_SERVER_NOT_RESPONDING = (RASBase + 50);
ERROR_FROM_DEVICE = (RASBase + 51);
ERROR_UNRECOGNIZED_RESPONSE = (RASBase + 52);
ERROR_MACRO_NOT_FOUND = (RASBase + 53);
ERROR_MACRO_NOT_DEFINED = (RASBase + 54);
ERROR_MESSAGE_MACRO_NOT_FOUND = (RASBase + 55);
ERROR_DEFAULTOFF_MACRO_NOT_FOUND = (RASBase + 56);
ERROR_FILE_COULD_NOT_BE_OPENED = (RASBase + 57);
ERROR_DEVICENAME_TOO_LONG = (RASBase + 58);
ERROR_DEVICENAME_NOT_FOUND = (RASBase + 59);
ERROR_NO_RESPONSES = (RASBase + 60);
ERROR_NO_COMMAND_FOUND = (RASBase + 61);
ERROR_WRONG_KEY_SPECIFIED = (RASBase + 62);
ERROR_UNKNOWN_DEVICE_TYPE = (RASBase + 63);
ERROR_ALLOCATING_MEMORY = (RASBase + 64);
ERROR_PORT_NOT_CONFIGURED = (RASBase + 65);
ERROR_DEVICE_NOT_READY = (RASBase + 66);
ERROR_READING_INI_FILE = (RASBase + 67);
ERROR_NO_ConnECTION = (RASBase + 68);
ERROR_BAD_USAGE_IN_INI_FILE = (RASBase + 69);
ERROR_READING_SECTIONNAME = (RASBase + 70);
ERROR_READING_DEVICETYPE = (RASBase + 71);
ERROR_READING_DEVICENAME = (RASBase + 72);
ERROR_READING_USAGE = (RASBase + 73);
ERROR_READING_MAXConnECTBPS = (RASBase + 74);
ERROR_READING_MAXCARRIERBPS = (RASBase + 75);
ERROR_LINE_BUSY = (RASBase + 76);
ERROR_VOICE_ANSWER = (RASBase + 77);
ERROR_NO_ANSWER = (RASBase + 78);
ERROR_NO_CARRIER = (RASBase + 79);
ERROR_NO_DIALTONE = (RASBase + 80);
ERROR_IN_COMMAND = (RASBase + 81);
ERROR_WRITING_SECTIONNAME = (RASBase + 82);
ERROR_WRITING_DEVICETYPE = (RASBase + 83);
ERROR_WRITING_DEVICENAME = (RASBase + 84);
ERROR_WRITING_MAXConnECTBPS = (RASBase + 85);
ERROR_WRITING_MAXCARRIERBPS = (RASBase + 86);
ERROR_WRITING_USAGE = (RASBase + 87);
ERROR_WRITING_DEFAULTOFF = (RASBase + 88);
ERROR_READING_DEFAULTOFF = (RASBase + 89);
ERROR_EMPTY_INI_FILE = (RASBase + 90);
ERROR_AUTHENTICATION_FAILURE = (RASBase + 91);
ERROR_PORT_OR_DEVICE = (RASBase + 92);
ERROR_NOT_BINARY_MACRO = (RASBase + 93);
ERROR_DCB_NOT_FOUND = (RASBase + 94);
ERROR_STATE_MACHINES_NOT_STARTED = (RASBase + 95);
ERROR_STATE_MACHINES_ALREADY_STARTED = (RASBase + 96);
ERROR_PARTIAL_RESPONSE_LOOPING = (RASBase + 97);
ERROR_UNKNOWN_RESPONSE_KEY = (RASBase + 98);
ERROR_RECV_BUF_FULL = (RASBase + 99);
ERROR_CMD_TOO_LONG = (RASBase + 100);
ERROR_UNSUPPORTED_BPS = (RASBase + 101);
ERROR_UNEXPECTED_RESPONSE = (RASBase + 102);
ERROR_INTERACTIVE_MODE = (RASBase + 103);
ERROR_BAD_CALLBACK_NUMBER = (RASBase + 104);
ERROR_INVALID_AUTH_STATE = (RASBase + 105);
ERROR_WRITING_INITBPS = (RASBase + 106);
ERROR_INVALID_WIN_HANDLE = (RASBase + 107);
ERROR_NO_PASSWORD = (RASBase + 108);
ERROR_NO_USERNAME = (RASBase + 109);
ERROR_CANNOT_START_STATE_MACHINE = (RASBase + 110);
ERROR_GETTING_COMMSTATE = (RASBase + 111);
ERROR_SETTING_COMMSTATE = (RASBase + 112);
ERROR_COMM_FUNCTION = (RASBase + 113);
ERROR_CONFIGURATION_PROBLEM = (RASBase + 114);
ERROR_X25_DIAGNOSTIC = (RASBase + 115);
ERROR_TOO_MANY_LINE_ERRORS = (RASBase + 116);
ERROR_OVERRUN = (RASBase + 117);
ERROR_ACCT_EXPIRED = (RASBase + 118);
ERROR_CHANGING_PASSWORD = (RASBase + 119);
ERROR_NO_ACTIVE_ISDN_LINES = (RASBase + 120);
ERROR_NO_ISDN_CHANNELS_AVAILABLE = (RASBase + 121);

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_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
{ Identifies an active RAS Connection. (See RasConnectEnum) }
PRASConn = ^TRASConn;
TRASConn = record
dwSize: DWORD;
rasConn: HRASConn;
szEntryName: array[0..RAS_MaxEntryName] of Char;
szDeviceType: array[0..RAS_MaxDeviceType] of Char;
szDeviceName: array[0..RAS_MaxDeviceName] of char;
end;

PRASConnStatus = ^TRASConnStatus;
TRASConnStatus = record
dwSize: LongInt;
rasConnstate: Word;
dwError: LongInt;
szDeviceType: array[0..RAS_MaxDeviceType] of Char;
szDeviceName: array[0..RAS_MaxDeviceName] of Char;
end;

PRASDIALEXTENSIONS= ^TRASDIALEXTENSIONS;
TRASDIALEXTENSIONS= record
dwSize: DWORD;
dwfOptions: DWORD;
hwndParent: HWnd;
reserved: DWORD;
end;

PRASDialParams = ^TRASDialParams;
TRASDialParams = record
dwSize: DWORD;
szEntryName: array[0..RAS_MaxEntryName] of Char;
szPhoneNumber: array[0..RAS_MaxPhoneNumber] of Char;
szCallbackNumber: array[0..RAS_MaxCallbackNumber] of Char;
szUserName: array[0..UNLEN] of Char;
szPassword: array[0..PWLEN] of Char;
szDomain: array[0..DNLEN] of Char;
end;

PRASEntryName = ^TRASEntryName;
TRASEntryName = record
dwSize: LongInt;
szEntryName: array[0..RAS_MaxEntryName] of Char;
// Reserved: Byte;
end;


function RasDial(
lpRasDialExtensions : PRASDIALEXTENSIONS; // pointer to function extensions data
lpszPhonebook: PChar; // pointer to full path and filename of phonebook file
lpRasDialParams : PRASDIALPARAMS; // pointer to calling parameters data
dwNotifierType : DWORD; // specifies type of RasDial event handler
lpvNotifier: DWORD; // specifies a handler for RasDial events
var rasConn: HRASConn // pointer to variable to receive connection handle
): DWORD; stdcall;

function RasEnumConnections(
RASConn: PrasConn; { buffer to receive Connections data }
var BufSize: DWord; { size in bytes of buffer }
var Connections: DWord { number of Connections written to buffer }
): LongInt; stdcall;

function RasEnumEntries (
reserved: PChar; // reserved, must be NULL
lpszPhonebook: PChar ; // pointer to full path and filename of phonebook file
lprasentryname: PRASENTRYNAME ; // buffer to receive phonebook entries
var lpcb: DWORD;// size in bytes of buffer
var lpcEntries: DWORD// number of entries written to buffer
): DWORD; stdcall;

function RasCreatePhonebookEntry(
hwnd:THandle;
lpszPhonebook: PChar
)WORD; stdcall;

function RasEditPhonebookEntry(
hwnd:Thandle;
lpszPhonebook,EntrieName: PChar
)WORD; stdcall;

function RasGetConnectStatus(
RASConn: hrasConn; { handle to Remote Access Connection of interest }
RASConnStatus: PRASConnStatus { buffer to receive status data }
): LongInt; stdcall;

function RasGetErrorString(
ErrorCode: DWord; { error code to get string for }
szErrorString: PChar; { buffer to hold error string }
BufSize: DWord { sizeof buffer }
): LongInt; stdcall;

function RasHangUp(
RASConn: hrasConn { handle to the Remote Access Connection to hang up }
): LongInt; stdcall;

function RasGetEntryDialParams(
lpszPhonebook: PChar; // pointer to the full path and filename of the phonebook file
var lprasdialparams: TRASDIALPARAMS; // pointer to a structure that receives the connection parameters
var lpfPassword: BOOL // indicates whether the user's password was retrieved
): DWORD; stdcall;

implementation

const
RAS_DLL = 'rasapi32.dll';

function RasDial; external RAS_DLL name 'RasDialA';
function RasEnumConnections; external RAS_DLL name 'RasEnumConnectionsA';
function RasEnumEntries; external RAS_DLL name 'RasEnumEntriesA';
function RasGetConnectStatus; external RAS_DLL name 'RasGetConnectStatusA';
function RasGetErrorString; external RAS_DLL name 'RasGetErrorStringA';
function RasHangUp; external RAS_DLL name 'RasHangUpA';
function RasGetEntryDialParams; external RAS_DLL name 'RasGetEntryDialParamsA';
function RasCreatePhonebookEntry; external RAS_DLL name 'RasCreatePhonebookEntryA';
function RasEditPhonebookEntry; external RAS_DLL name 'RasEditPhonebookEntryA';
end.

为什么要自己加上PAS文件呢？ 我看见WIN32.hlp 中有说明的呢，
而且这个类我是在网上的例子中拿到的，我想DELPHI本身应该有
提供这样的生命，是吗？