unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,ComObj, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function IsNTFS(AFileName: string): Boolean;
var
fs, oleFile: OleVariant;
begin
fs := CreateOleObject('Scripting.FileSystemObject');
oleFile := fs.GetDrive(fs.GetDriveName(AFileName));
result := oleFile.FileSystem = 'NTFS'
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if IsNTFS('c:\WinNT\notepad.exe') then
ShowMessage('File is on NTFS File System')
else
ShowMessage('File is not on NTFS File System')
end;
end.