SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

Drives
⤷ Recognize a HDD serial number

Use GetVolumeInformation function, like this example: 

procedure TForm1.Button1Click(Sender: TObject);
var
  SerialNum: DWord;
  A,B: DWord;
  C: array [0..255] of Char;
  Buffer: array [0..255] of Char;
begin
  if GetVolumeInformation(
    PChar('C:\'),
    Buffer,
    256,
    @SerialNum,
    A,
    B,
    C,
    256) then Label1.Caption:=IntToStr(SerialNum);
end;
More for developers
● Delphi Components
● .Net Components
● Software for Android Developers
● Databases for Amazon Associates
Amazon Categories
Amazon Nodes