Получение серийного номера винчестера

var
 lpRootPN,lpVNB,lpFSNameBuf:PChar;
 nVolNameS,lpVolSerNum,lpMaxComponentL,lpFSFlags,nFSNameS:DWORD;
Begin
lpVNB:='';
lpVolSerNum:=0;
lpMaxComponentL:=0;
lpFSFlags:=0;
lpFSNameBuf:='';
GetMem(lpVNB,MAX_PATH+1);
GetMem(lpFSNameBuf,MAX_PATH+1);
nVolNameS:=MAX_PATH+1;
nFSNameS:=MAX_PATH+1;
lpRootPN:=PChar('C:\');
GetVolumeInformation(lpRootPN,lpVNB,nVolNameS,@lpVolSerNum,
                          lpMaxComponentL,lpFSFlags,lpFSNameBuf,nFSNameS)then
ShowMessage(IntToHex(HIWord(lpVolSerNum),4)+'-'+IntToHex(LOWord(lpVolSerNum),4)));
End;