Mega Code Archive

 

Categories / Delphi / System

 

Check if a partition is ntfs or fat formated

function GetHardDiskPartitionType(const DriveLetter: Char): string; // FAT // NTFS var NotUsed: DWORD; VolumeFlags: DWORD; VolumeInfo: array[0..MAX_PATH] of Char; VolumeSerialNumber: DWORD; PartitionType: array[0..32] of Char; begin GetVolumeInformation(PChar(DriveLetter + ':\'), nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, VolumeFlags, PartitionType, 32); Result := PartitionType; end; procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetHardDiskPartitionType('c')); ShowMessage(GetHardDiskPartitionType('a')); end;