Hardware Delphi

  1. Home
  2. Delphi
  3. Hardware
  4. 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;