怎样获取硬盘序列号？

Question

可以用获取。
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,nil, FileSystemFlags, 0);
  Result := IntToHex(HiWord(VolumeSerialNumber)4) + '-' + 
       IntToHex(LoWord(VolumeSerialNumber)4);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum : pdword;
  a, b : dword;
  Buffer  : array [0..255] of char;
begin
  if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then
    Label1.Caption := IntToStr(SerialNum^);
end;