ЧТЕНИЕ НОМЕРОВ ЦЕПОЧЕК КЛАСТЕРОВ ФАЙЛОВ DELPHI

Для того чтобы прочитать номера цепочек кластеров файлов на Delphi, нужно использовать WinAPI функции. Для начала, необходимо получить дескриптор файла с помощью функции CreateFile:

var hFile: THandle;begin hFile := CreateFile('filename', GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);

Затем, можно использовать функцию GetFileInformationByHandleEx, чтобы получить информацию о файле. Передаем в качестве параметра дескриптор файла и структуру FILE_ID_INFO:

var fi: TFileIdInfo;begin GetFileInformationByHandleEx(hFile, FileIdInfo, @fi, SizeOf(fi));

В полученной структуре FILE_ID_INFO содержится информация о файле, включая номера цепочек кластеров:

writeln(IntToHex(fi.VolumeSerialNumber,8), '-', IntToHex(fi.FileId.QuadPart and $FFFFFFFF,8), '-', IntToHex(fi.FileId.QuadPart shr 32,8));

Таким образом, данным способом можно получить номера цепочек кластеров для любого файла на Делфи.

КАК УСТРОЕНА ФАЙЛОВАЯ СИСТЕМА - FAT-32

Как читать схему . Часть 7. Power sequence for Desktop.

Delphi - Сохранение данных в текстовый файл и компонент SaveDialog

COM-порт Delphi7 компонент AsyncFree

API для начинающих. Учимся читать документацию [3/5]

Delphi 7 Компонент Memo

Pascal - типизированные файлы

Delphi (практический курс) - Библиотеки DLL