RasGetCredentials报632错也就是ERROR_INVALID_SIZE，请大侠帮忙看

[johnma]

代码如下
unit unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
tform1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public

{ Public declarations }
end;


type
TRasCredentialsA =packed record
dwSize:dword;
dwMask: dword;
szUserName: array[0..256] of AnsiChar;
szPassword: array[0..256] of AnsiChar;
szDomain: array[0..16] of AnsiChar;
end;

TRasCredentials=TRasCredentialsA;



var
form1: Tform1;

implementation

{$R *.dfm}

function RasGetCredentials(
lpszPhonebook :pchar;
lpszEntry:pchar;
lpCredentials:pointer
): dword;stdcall;external 'Rasapi32.dll' name 'RasGetCredentialsA';


procedure tform1.Button1Click(Sender: TObject);
var
rc:TRasCredentials;
nResult:hresult;
serror:array[0..255] of char;
begin
rc.dwSize := sizeof(rc);
//rc.dwMask := 11;

nResult:=RasGetCredentials(nil,pchar('Q700 Line'),@rc);
//这里nresult返回632
showmessage(inttostr(nResult));
end;

end.

[mygodsos]

路过帮顶
=============
11月6日，论坛升级公告，积分已经做了调整！
http://topic.csdn.net/u/20081107/11/b27dc75f-14b1-4594-9de3-5b18d9e36a11.html
此次调整增加了两个新的可用分获取渠道：
1：帖子被推荐（加精）后，帖主可以获得88分的可用分奖励；
2：帖子结帖后会返还帖主50%的悬赏分，无满意结帖不返还分数；
3：接下来会不断增加新的可用分获取途径，比如参与活动赠送等，请大家多关注；

[JoStudio]

const
{* TRasCredentials 'dwMask' values.
*}
RASCM_UserName = $00000001;
RASCM_Password = $00000002;
RASCM_Domain = $00000004;
RASCM_DefaultCreds= $00000008; ////

procedure tform1.Button1Click(Sender: TObject);
var
rc:TRasCredentials;
nResult:hresult;
serror:array[0..255] of char;
begin
rc.dwSize := sizeof(rc);
//rc.dwMask := 11;
rc.dwMask:=RASCM_UserName+RASCM_Password+RASCM_DefaultCreds;

////nResult:=RasGetCredentials(nil,pchar('Q700 Line'),@rc);
nResult:=RasGetCredentials(nil,pchar('Q700 Line'),rc);


//这里nresult返回0
showmessage(inttostr(nResult));
end;