Mega Code Archive

 

Categories / Delphi / Hardware

 

Serial number of a drive

Title: Serial number of a drive Question: Answer: function GetDiskVolSerialID(cDriveName : char ) : DWord; var dwTemp1, dwTemp2 : DWord; begin GetVolumeInformation(PChar( cDriveName + ':\' ), Nil, 0, @Result, dwTemp2, dwTemp2, Nil, 0 ); end;