关于rasenumentries　（100分）(100分)

这个API怎么使用？<br>下面代码错在哪unit Unit1;<br><br>interface<br><br>uses<br>&nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br>&nbsp; Dialogs, StdCtrls,shellapi;<br><br>type<br>&nbsp; TForm1 = class(TForm)<br>&nbsp; &nbsp; Button1: TButton;<br>&nbsp; &nbsp; ListBox1: TListBox;<br>&nbsp; &nbsp; procedure Button1Click(Sender: TObject);<br>&nbsp; private<br>&nbsp; &nbsp; { Private declarations }<br>&nbsp; public<br>&nbsp; &nbsp; { Public declarations }<br>&nbsp; end;<br>&nbsp; &nbsp; type<br>&nbsp; &nbsp; lprasentrynamew=^trasentrynamew;<br>&nbsp; &nbsp; trasentrynamew=record<br>&nbsp; &nbsp; dwsize:longint;<br>&nbsp; &nbsp; szentryname:array[0..10]of widechar;<br>&nbsp; &nbsp; end ;<br>&nbsp; &nbsp; lprasentrynamea=^trasentryname;<br>&nbsp; &nbsp; trasentrynamea=record<br>&nbsp; &nbsp; desize:longint;<br>&nbsp; &nbsp; szentryname:array[0..10]of ansichar;<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; lprasentryname=^trasentryname;<br>&nbsp; &nbsp; trasentryname=trasentrynamea;<br>var<br>&nbsp; Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br>function rasenumentries(reservedansichar;lpszphonebookansichar;entrynamesarray:lprasentryname;var lpcb:longint;var lpcentries:longint):longint;stdcall;<br>external 'rasapi32.dll' name 'Rasenumentries';<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>buffsize:integer;<br>entries:integer;<br>entry:array[1..10] of trasentryname;<br>i:integer;<br>ireturn:integer;<br>begin<br>listbox1.Clear ;<br>entry[1].desize :=sizeof(trasentryname);<br>buffsize:=sizeof(trasentryname)* 10;<br>ireturn:=rasenumentries(nil,nil ,@entry[1],buffsize,entries);<br>if (ireturn=0) and(entries&gt;0) then<br>begin<br>&nbsp; &nbsp; for i:=1 to entries do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; listbox1.Items.Add(entry.szentryname );<br><br>&nbsp; &nbsp; end;<br>&nbsp;end<br>&nbsp;end;<br>end.<br>