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