(Delphi ActiveX) Determine File Type

Demonstrates how to determine the type of file. Possible types are:

• 1: Regular file
• 2: Directory
• 3: Symbolic Link
• 4: Windows shortcut
• 99: Something else
• 0: File not found
• -1: Unable to check because of directory permissions or other error.

Note: This example requires Chilkat v9.5.0.77 or greater.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
fac: TCkFileAccess;
fileType: Integer;

begin
// Call the FileType method to determine the file type.
// (Note: FileType is a method, not a property.)

fac := TCkFileAccess.Create(Self);
fileType := fac.FileType('qa_data/shortcuts/chilkat_pkcs7_shortcut.xml');
Memo1.Lines.Add('fileType = ' + IntToStr(fileType));

// Possible fileType values are:
// 1: Regular file
// 2:  Directory
// 3: Symbolic Link
// 4: Windows shortcut
// 99: Something else
// 0: File not found
// -1: Unable to check because of directory permissions or other error.
end;