|
|||
Скачать Серийный номер, Метка тома и тип FAT диска
22.06.1997 Const Hexa : Array [0..15] of Char = ('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F'); Type DiskInfo = Record { Work area } Info_Level : Word; { Always zero } Serial_Num : LongInt; { Serial number of the specified disk } Volume_Name : String[11]; { 'NO_NAME' or volume name } File_Sys : String[8]; { 'FAT12' or 'FAT16' } End; Var Ch1 , Ch2 : Byte; Ch3 , Ch4 : Byte; DInfo : DiskInfo; First, Second : Word; Function Word2Hex(Number: Word) : String; Begin Ch1 := (Number SHR 8) SHR 4; Ch2 := (Number SHR 8) - (Ch1 SHL 4); Ch3 := (Number AND $FF) SHR 4; Ch4 := (Number AND $FF) - (Ch3 SHL 4); Word2Hex := Hexa[Ch1]+Hexa[Ch2]+Hexa[Ch3]+Hexa[Ch4]; End; | |||
© 2009–2024 Russian Pascal Developer Network.
Техническая площадка: ISBIZ Хостинг |