怎取硬盘分区的序号(20分)

怎取硬盘分区的序号（用来加密）
或用什么函数来做？

Function GetHDSer(Var Ser:String;HD:String):boolean;
var SerialNum : pdword;
a, b : dword;
Buffer : array [0..255] of char;
begin
New(SerialNum);
Result:=GetVolumeInformation(PCHAR(HD),Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0);
if Result then Ser:=Format('%X',[SerialNum^]);
FreeMem(SerialNum);
end;

Function GetHDSer(HD:String)word;
var
a,b,Dword;
PResultDWord;
begin
New(PResult);
GetVolumeInformation(PChar(HD),Nil,0,PResult,a,b,nil,0);
Result:=PResult^;
Dispose(PResult);
end;

接受答案了.