Examples Delphi

Question::
I need to determine if a file is located on a NTFS formatted drive. There is no Windows API function for this.
Answer::
Indeed the Windows API does not provide such a function. Besides attempting to use NTFS specific functionalities and checking whether are supported - thus assuming it could be NTFS, you can create a FileSystemObject and use scripting.
The only downside of this attempt is that for security reasons scripting may be disabled on some computers.

uses
ComObj;
function IsNTFS(aFilename: string) : boolean;
var
fso,
drv: OLEvariant;
begin { IsNTFS }
IsNTFS := False;
fso := CreateOLEObject('Scripting.FileSystemObject');
drv := fso.GetDrive(fso.GetDriveName(aFilename));
IsNTFS := drv.FileSystem='NTFS'
end; { IsNTFS }
// example
if IsNTFS('f:\letter.doc') then
ShowMessage('File resides on NTFS File System')