一个格式转换的问T，，，，高手请进。。。。。。。
Function GetHDSerialNumber(Drv : String): String;//得到硬盘的序列号
var
VolumeSerialNumber : DWORD;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
begin

if Drv[Length(Drv)] = ': ' then Drv := Drv + '\ ';

GetVolumeInformation(pChar(Drv),
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);

Result := IntToStr(VolumeSerialNumber); ///?????????
end;
我想在Edit7.Text:=IntToStr(GetHDSerialNumber);　
中调用显示在窗口上，但总是报错：
[Pascal Error] GetInfoMAIN.pas(211): E2035 Not enough actual parameters
[Pascal Fatal Error] GetSystemInfo.dpr(6): F2063 Could not compile used unit 'GetInfoMAIN.pas '


为什么啊？、？？高手指教一下，谢谢。。。。。。。。。。。。

[解决办法]
Function GetHDSerialNumber(Drv : String): String;//得到硬盘的序列号
Edit7.Text:=IntToStr(GetHDSerialNumber);　//你不觉得缺点什么吗？
Edit7.Text:=IntToStr(GetHDSerialNumber( '这里要填参数 '));　

==================================
以下内容纯属广告，不可能雷同
e族百变桌面－－特效更换桌面壁纸，丰富的网上资源支持，
Flash桌面，视频桌面……让您的桌面动起来！
http://www.popolong.com
==================================