获得硬盘序列号

[ahafriend]

在DELPHI中，我用GetVolumeInformationA()函数来获取硬盘分区的序列号，不过好象每次都没有得到，在PB中我是搞定的了！
请各位大侠赐教！

[ZHENG017]

那不是硬盘id,只是序列号。format 之后会变的。 http://www.moreres.com/down/svc021405.zip

[nbgyf]

Windows API:::::------->GetVolumeInformation()

见MSDN

[ahafriend]

关键是那几个参数没有弄清楚，不知道“小蜜蜂” 同志来点具体的！
非常感谢风中王子

[ZHENG017]

看看下面这个
http://www.csdn.net/expert/topic/864/864115.xml?temp=.9909326

[ahafriend]

我的程序是这样写的：


procedure TForm1.FormCreate(Sender: TObject);
var
ls_Rootpath, ls_volumnename,ls_FileSystemNameBuffer:pchar;
lul_VolumeNameSize,lul_FileSystemNameSize,lul_MaximumComponentLength:cardinal;
lul_FileSystemFlags:cardinal;
lul_VolumeSerialNumber:pdword;
lb_rtn:boolean;
begin
lb_rtn:=False;
ls_Rootpath:='C:' ;
ls_volumnename:=stralloc(256*sizeof(char));
lul_VolumeNameSize:=256;
lul_MaximumComponentLength:=256;
ls_FileSystemNameBuffer:=stralloc(256*sizeof(char));
lul_FileSystemNameSize:=256;
beep();
lb_rtn:=GetVolumeInformationA(ls_Rootpath,ls_volumnename,lul_VolumeNameSize,lul_VolumeSerialNumber,lul_MaximumComponentLength,lul_FileSystemFlags,ls_FileSystemNameBuffer,lul_FileSystemNameSize);
edit2.Text:=booltostr(lb_rtn);
if lb_rtn=true then
application.MessageBox('函数调用成功','提示',mb_ok)
else
application.MessageBox('函数调用失败!','提示',mb_ok);
edit1.text:=string(lul_VolumeSerialNumber);
strdispose(ls_volumnename);
strdispose(ls_FileSystemNameBuffer);
end;


返回的是一个false值