如何取得、修改拨号网络的用户名(200分)

如题，
下面这代码有错，请问错在那？
var
hrWORD;
passwd:LongBool;
begin
fillChar(RASDialParams,SizeOf(RASDialParams),#0);
RASDialParams.dwSize:=SizeOf(TRASDialParams);
EntryName:='我的连接';
StrLCopy(RASDialParams.szEntryName,pchar(EntryName),RAS_MaxEntryName);
hr:= RasGetEntryDialParams('', RASDialParams, passwd);
if hr = 0 then
ShowMessage(RASDialParams.szUserName )
else
showmessage(IntToStr(hr));
end;

错误提示是：“系统无法打开电话簿文件。”
请给出具体代码：

用一个DIALUP的控件

http://www.playicq.com/dispdocnew.php?t=&id=2644　这是下载地址！！！
非常好用！！！！

我试了一下，没有取得用户名的啊？？！！
是不是我没有看清楚？
能不能帮我找出代码？
[8D][]

procedure TForm1.Button1Click(Sender: TObject);
var
hr WORD;
passwd:LongBool;

Param : RASDialParams;
EntryName : String;
begin
fillChar(Param, SizeOf(RASDialParams), #0);
Param.dwSize:=SizeOf(RASDialParams);
EntryName:='ChinaNet';
StrLCopy(Param.szEntryName,pchar(EntryName),RAS_MaxEntryName);
hr:= RasGetEntryDialParams('', @Param, @passwd);
if hr = 0 then
ShowMessage(Param.szUserName )
else
showmessage(IntToStr(hr));
end;

我试了一下，出现一个错误：“检测到一个不正确的结构大小。”
这是什么错误？

上面的代码我试过，d对了，可能是我用的Ras.PAS和你的不同, 你用下面的看看

// ******************************************************************************
// Unit: Ras.pas
// Description: Remote Access unit that encapsulates all Remote Access functions,
// consts and structs.
// Date: 08.12.1996.
// Copyright (c) 1996 Milan Vidakovic. All rights reserved.
// ******************************************************************************
unit Ras;

interface

uses
Windows, RichEdit;

const

NETBIOS_NAME_LEN = 16;
UNLEN = 256;
PWLEN = 256;
CNLEN = 15;
DNLEN = CNLEN;

RAS_MaxDeviceType = 16;
RAS_MaxPhoneNumber = 128;
RAS_MaxIpAddress = 15;
RAS_MaxIpxAddress = 21;

//#if (WINVER >= 0x400)
RAS_MaxEntryName = 256;
RAS_MaxDeviceName = 128;
RAS_MaxCallbackNumber = RAS_MaxPhoneNumber;
//#else
// RAS_MaxEntryName 20
// RAS_MaxDeviceName 32
// RAS_MaxCallbackNumber 48
//#endif

RAS_MaxAreaCode = 10;
RAS_MaxPadType = 32;
RAS_MaxX25Address = 200;
RAS_MaxFacilities = 200;
RAS_MaxUserData = 200;

RASCS_PAUSED = $1000;
RASCS_DONE = $2000;
// ovo su trebale da budu enum konstante, ali pascal ne podrzava predefinisanje vrednosti,
// RASCONNSTATE
// vec samo linearno povecavanje vrednosti enum konstanti
RASCS_Interactive = RASCS_PAUSED;
RASCS_RetryAuthentication = RASCS_Interactive +1;
RASCS_CallbackSetByCaller = RASCS_RetryAuthentication + 1;
RASCS_PasswordExpired = RASCS_CallbackSetByCaller + 1;

RASCS_Connected = RASCS_DONE;
RASCS_Disconnected = RASCS_Connected + 1;

// RASPROJECTION
RASP_Amb = $10000;
RASP_PppNbf = $803F;
RASP_PppIpx = $802B;
RASP_PppIp = $8021;


type
LPVOID = Pointer;
LPTSTR = LPSTR;
BOOL = Integer;
LONG = LongInt;
LPBOOL = ^BOOL;
HRASCONN = DWORD;
LPHRASCONN = ^HRASCONN;
RASPROJECTION = Integer;

RASCONNSTATE = (
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

//#if (WINVER >= 0x400)
RASCS_StartAuthentication, // 19
RASCS_CallbackComplete, // 20
RASCS_LogonNetwork, // 21
//#endif
RASCS_SubEntryConnected, // 22
RASCS_SubEntryDisconnected // 23
{ definisano kao konstanta
RASCS_Interactive = RASCS_PAUSED, // 4096
RASCS_RetryAuthentication, // 4097
RASCS_CallbackSetByCaller, // 4098
RASCS_PasswordExpired, // 4099

RASCS_Connected = RASCS_DONE, // 8192
RASCS_Disconnected // 8193
}
);

LPRASCONNSTATE = ^RASCONNSTATE;

RASENTRYNAME = record
dwSize : DWORD;
szEntryName : array[0 .. RAS_MaxEntryName + 1 -1] of CHAR;
end;
LPRASENTRYNAME = ^RASENTRYNAME;

RASAMB = record
dwSize : DWORD;
dwError : DWORD;
szNetBiosError : array[0 .. NETBIOS_NAME_LEN + 1 -1] of CHAR;
bLana : BYTE;
end;

RASCONN = record
dwSize : DWORD;
hrasconn : HRASCONN;
szEntryName : array[0 .. RAS_MaxEntryName + 1 -1] of CHAR;
//#if (WINVER >= 0x400)
szDeviceType : array[0 .. RAS_MaxDeviceType + 1 -1] of CHAR;
szDeviceName : array[0 .. RAS_MaxDeviceName + 1 -1] of CHAR;
//#endif
end;
LPRASCONN = ^RASCONN;

RASCONNSTATUS = record
dwSize : DWORD;
rasconnstate : RASCONNSTATE;
dwError : DWORD;
szDeviceType : array[0 .. RAS_MaxDeviceType + 1 -1] of CHAR;
szDeviceName : array[0 .. RAS_MaxDeviceName + 1 -1] of CHAR;
end;
LPRASCONNSTATUS = ^RASCONNSTATUS;

RASDIALEXTENSIONS = record
dwSize : DWORD;
dwfOptions WORD;
hwndParent : HWND;
reserved : DWORD;
end;
LPRASDIALEXTENSIONS = ^RASDIALEXTENSIONS;

RASDIALPARAMS = record
dwSize : DWORD;
szEntryName : array[0 .. RAS_MaxEntryName + 1 -1] of CHAR;
szPhoneNumber : array[0 .. RAS_MaxPhoneNumber + 1 -1] of CHAR;
szCallbackNumber : array[0 .. RAS_MaxCallbackNumber + 1 -1] of CHAR;
szUserName : array[0 .. UNLEN + 1 -1] of CHAR;
szPassword : array[0 .. PWLEN + 1 -1] of CHAR;
szDomain : array[0 .. DNLEN + 1 -1] of CHAR;
//#if (WINVER >= 0x401)
// dwSubEntry : DWORD;
// dwCallbackId : DWORD;
//#endif
end;
LPRASDIALPARAMS = ^RASDIALPARAMS;

RASPPPIP = record
dwSize : DWORD;
dwError : DWORD;
szIpAddress : array[0 .. RAS_MaxIpAddress + 1 -1] of CHAR;
end;

RASPPPIPX = record
dwSize : DWORD;
dwError : DWORD;
szIpxAddress : array[0 .. RAS_MaxIpxAddress + 1 -1] of CHAR;
end;

RASPPPNBF = record
dwSize : DWORD;
dwError : DWORD;
dwNetBiosError : DWORD;
szNetBiosError : array[0 .. NETBIOS_NAME_LEN + 1 -1] of CHAR;
szWorkstationName : array[0 .. NETBIOS_NAME_LEN + 1 -1] of CHAR;
bLana : BYTE;
end;

{Ras function prototypes }

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

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

function RasDial(
lpRasDialExtensions : LPRASDIALEXTENSIONS; // pointer to function extensions data
lpszPhonebook : LPTSTR; // pointer to full path and filename of phonebook file
lpRasDialParams : LPRASDIALPARAMS; // pointer to calling parameters data
dwNotifierType : DWORD; // specifies type of RasDial event handler
lpvNotifier : LPVOID; // specifies a handler for RasDial events
lphRasConn : LPHRASCONN // pointer to variable to receive connection handle
) : DWORD; stdcall;

function RasHangUp(
hrasconn : HRASCONN // handle to the RAS connection to hang up
) : DWORD; stdcall;

function RasEditPhonebookEntry(
hwnd : HWND; // handle to the parent window of the dialog box
lpszPhonebook : LPTSTR; // pointer to the full path and filename of the phonebook file
lpszEntryName : LPTSTR // pointer to the phonebook entry name
) : DWORD; stdcall;

function RasCreatePhonebookEntry(
hwnd : HWND; // handle to the parent window of the dialog box
lpszPhonebook :LPTSTR // pointer to the full path and filename of the phonebook file
) : DWORD; stdcall;

function RasGetConnectStatus(
hrasconn : HRASCONN; // handle to RAS connection of interest
lprasconnstatus : LPRASCONNSTATUS // buffer to receive status data
) : DWORD; stdcall;

function RasEnumConnections(
lprasconn : LPRASCONN; // buffer to receive connections data
lpcb : LPDWORD; // size in bytes of buffer
lpcConnections : LPDWORD // number of connections written to buffer
) : DWORD; stdcall;

function RasGetErrorString(
uErrorValue : UINT; // error to get string for
lpszErrorString : LPTSTR; // buffer to hold error string
cBufSize : DWORD // size, in characters, of buffer
) : DWORD; stdcall;

function RasGetProjectionInfo(
hrasconn : HRASCONN; // handle that specifies remote access connection of interest
rasprojection : RASPROJECTION; // specifies type of projection information to obtain
lpprojection : LPVOID; // points to buffer that receives projection information
lpcb : LPDWORD // points to variable that specifies buffer size
) : DWORD; stdcall;

function RasSetEntryDialParams(
lpszPhonebook : LPTSTR; // pointer to the full path and filename of the phonebook file
lprasdialparams : LPRASDIALPARAMS; // pointer to a structure with the new connection parameters
fRemovePassword : BOOL // indicates whether to remove password from entry's parameters
) : DWORD; stdcall;

function ConnStatusToStr(i : Integer) : string; // Returns Status string based on integer value

implementation

{ Externals from rasapi32.dll }
const
rasapi32 = 'rasapi32.dll';

function RasEnumEntries; external rasapi32 name 'RasEnumEntriesA';
function RasGetEntryDialParams; external rasapi32 name 'RasGetEntryDialParamsA';
function RasDial; external rasapi32 name 'RasDialA';
function RasHangUp; external rasapi32 name 'RasHangUpA';
function RasEditPhonebookEntry; external rasapi32 name 'RasEditPhonebookEntryA';
function RasCreatePhonebookEntry; external rasapi32 name 'RasCreatePhonebookEntryA';
function RasGetConnectStatus; external rasapi32 name 'RasGetConnectStatusA';
function RasEnumConnections; external rasapi32 name 'RasEnumConnectionsA';
function RasGetErrorString; external rasapi32 name 'RasGetErrorStringA';
function RasGetProjectionInfo; external rasapi32 name 'RasGetProjectionInfoA';
function RasSetEntryDialParams; external rasapi32 name 'RasSetEntryDialParamsA';


function ConnStatusToStr(i : Integer) : string; // Returns Status string based on integer value
var
RetValue : string;
begin
RetValue := '';
case i of
0 : RetValue := 'Device is ready.';
1 : RetValue := 'Device is busy.';
2 : RetValue := 'Connecting device.';
5 : RetValue := 'Authenticating.';
14 : RetValue := 'Authenticated.';
19 : RetValue := 'Starting authentication.';
21 : RetValue := 'Logging to network.';
8192:RetValue := 'Connected.';
8193:RetValue := 'Disconnected.';
else RetValue := '';
end; //case
ConnStatusToStr := RetValue;
end;

end.

我用你的RAS。pas替换了，不过，现在的错误是“系统无法打开电话簿文件。”，
这和我原来的问题是一样的。

你能把可执行文件发给我么，我在我的机器上试试看
tseug@263.net

to tseug;
E-mail已发给你，有没有收到

你是用163邮箱发的吧, 估计要等到明天才能到了....[]

to tseug ;
我试了一下，在98下是可以的，不过还是希望有在2000下可以的程序。

算了，散分了

多人接受答案了。

多人接受答案了。