DBR Delphi-Ecke

// Falls man nicht weiß, ob das Dateisystem eines Laufwerkes NTFS oder FAT
// ist, kann man sich das mit dem folgenden Code anzeigen lassen:

// Getestet mit D4 unter XP

uses ComObj; 
 
function FileSystem(LW: string): string; 
var 
  ov: OleVariant; 
begin 
  ov := CreateOleObject('Scripting.FileSystemObject'); 
  result := ov.GetDrive(ov.GetDriveName(LW)).FileSystem; 
end; 
 
procedure TForm1.Button5Click(Sender: TObject); 
begin 
  showmessage(FileSystem('D:')) 
end;