调用 RasGetEntryProperties 函数出现“检测到一个不正确的结构大小”处理方法

Delphi 中调用拨号的API函数，总是出现错误“检测到一个不正确的结构大小”。

下面是函数的声明

function RasGetEntryPropertiesW(

                    lpszPhonebook: PChar;

                    lpszEntry: PChar;

                    lpRasEntry: PRASENTRY;    //保存参数缓冲区

                    lpdwEntryInfoSize: LPDWORD;  //参数缓冲区大小

                    lpbDeviceInfo: PBYTE;

                    lpdwDeviceInfoSize: LPDWORD): DWORD; stdcall;

function RasGetEntryPropertiesW; external rasapi32 name 'RasGetEntryPropertiesW';  //这里是实现

开始以为是缓冲区的结构设置的不正确，调整了很多次，这个缓冲区有很多的版本，这个函数在不断的升级，参数也在不断的增多，后来使用了最完整的版本还是不行。

最后发现问题出在了 stdcall; 上面，最开始没有增加 stdcall;，导致参数传递的顺序错误，自然缓冲区也就无法正确识别。

另外 lpRasEntry 这个缓冲区的大小是5680字节（采用的是unicode编码），如果不是这个数，也会出现“检测到一个不正确的结构大小”，可以将 lpRasEntry 设置为空，lpdwEntryInfoSize 设置为0， lpszEntry 为空，调用的时候lpdwEntryInfoSize会返回需要的缓冲区大小。