关于磁盘卷标的问题(50分)

此段代码，在D4中编译通过，获得正确结果，在D6中谝译也通过，但得不到正确结果。<br>原因何在？<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; SerialNum : pdword;<br>&nbsp; a, b : dword;<br>&nbsp; Buffer : array [0..255] of char;<br>begin<br>&nbsp; if GetVolumeInformation('C:/', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then<br>&nbsp; label1.caption:=floattostr(SerialNum^);<br>end;<br>

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; SerialNum : Cardinal;<br>&nbsp; a, b : dword;<br>&nbsp; Buffer : array [0..255] of char;<br>begin<br>&nbsp; if GetVolumeInformation('C:/', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil, 0) then<br>&nbsp; label1.caption:=floattostr(SerialNum);<br>end;<br>

对的