Get Disk Serial Number





 function GetDiskSerialNumber(Disk: char): string;
var
  VolumeSerialNumber,
  MaximumComponentLength,
  FileSystemFlags: DWORD;
  SerialNumber: string;
begin
  GetVolumeInformation(PChar(Disk + ':\'),
                       nil,
                       0,
                       @VolumeSerialNumber,
                       MaximumComponentLength,
                       FileSystemFlags,
                       nil,
                       0);
  SerialNumber := 
   Format('%.4X-%.4X', [HiWord(VolumeSerialNumber), LoWord(VolumeSerialNumber)]);
  Result := SerialNumber;
end; 
 


Vote This Post DownVote This Post Up (+3 votes)
Loading...



این نوشته در Delphi ارسال شده است. افزودن پیوند یکتا به علاقه‌مندی‌ها.

One Response to Get Disk Serial Number

  1. Gregorio می‌گوید:

    I guess finding useful, reliable information on the itnnreet isn’t hopeless after all.

پاسخ دهید