(Delphi DLL) 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 non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

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

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

fac := CkFileAccess_Create();
fileType := CkFileAccess_FileType(fac,'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.

CkFileAccess_Dispose(fac);

end;