Delphi Tips&Tricks News   Tips   .NET Software   VCL Software   Search   Contacts
Ultimate Pack - Delicious Software


Related products
Ultimate Pack  hot!
Image Editor  new!
Runtime Fusion
Form Designer
Object Inspector
Print Suite Pro
Commented Image
Delphi Toys
WinDowse
Delphi Bonus
TMS Scripter Studio
Form Designer VB
Form Designer .NET

Related links
Win32.hlp online version
MegaDetailed.NET
Delphi to C#
just4fun

Special
Free Software Promotion
Offers for Resellers

Follow us
Blogspot Twitter

Recognize a HDD serial number - Drives - Tips & Tricks - Greatis Delphi Pages

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;
Related chapters

Related topics
Recognize CD volume label
Recognize CDROM drive
Search the boot drive

For more
Win32 Programmer's Reference

Download source