وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٥
   1: var
   2:   VolumeSerialNumber: DWORD;
   3:   MaximumComponentLength: DWORD;
   4:   FileSystemFlags: DWORD;
   5:   SerialNumber: string;
   6: begin
   7:   GetVolumeInformation('C:\',
   8:                        nil,
   9:                        0,
  10:                        @VolumeSerialNumber,
  11:                        MaximumComponentLength,
  12:                        FileSystemFlags,
  13:                        nil,
  14:                        0);
  15:   SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) +
  16:                   '-' +
  17:                   IntToHex(LoWord(VolumeSerialNumber), 4);
  18: end;
  19:  
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :