| Class TVolumeInformation (unit Volinfo) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure ProcessError(Result: Variant);*************************************************************************** procedure ProcessError - Handles the GetVolumeInformation errors.
function FCaseIsPreserved: boolean;
function FCaseSensitive: boolean;
function FPersistentACLs: boolean;
function FSupportsFileCompression: boolean;
function FUnicodeStoredOnDisk: boolean;
function FVolumeIsCompressed: boolean;
function GetUNCDrive: string;
function GetVolumeFileSystemFlags: integer;
function GetVolumeFileSystemName: string;
function GetVolumeLabel: string;
function GetVolumeSerialNumber: string;
procedure SetDrive(DriveLetter: char);
procedure SetUNCDrive;| Properties |
property Drive : char
property UNCDrive : string
property CaseIsPreserved : boolean
property CaseSensitive : boolean
property PersistentACLs : boolean
property SupportsFileCompression : boolean
property UnicodeStoredOnDisk : boolean
property Version : string
property VolumeFileSystemFlags : integer
property VolumeFileSystemName : string
property VolumeIsCompressed : boolean
property VolumeLabel : string
property VolumeSerialNumber : string| Events |
event OnError : TErrorEvent| Variables |
FDrive : char;
FErrorEvent : TErrorEvent;
FUNCDrive : string;
FVersion : string;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
| Functions |
procedure ProcessError(Result: Variant);Protected declarations
*************************************************************************** procedure ProcessError - Handles the GetVolumeInformation errors. If there is an User Event defined for the component, it gets called with the error code passed as parameter. Otherwise a default error box is displayed. In any case, a null value is returned: this means a null string ('') or a null integer(0). Result is of type variant in order to make this routine good both for string and integer return types.
function FCaseIsPreserved: boolean;*************************************************************************** function CaseIsPreserved - Return the FS_CASE_IS_PRESERVED bit status. Input parameters: NONE Output parameters: The function returns True if FS_CASE_IS_PRESERVED is set, False otherwise.
function FCaseSensitive: boolean;*************************************************************************** function CaseIsPreserved - Return the FS_CASE_SENSITIVE bit status. Input parameters: NONE Output parameters: The function returns True if FS_CASE_SENSITIVE is set, False otherwise.
function FPersistentACLs: boolean;*************************************************************************** function CaseIsPreserved - Return the FS_PERSISTENT_ACLS bit status. Input parameters: NONE Output parameters: The function returns True if FS_PERSISTENT_ACLS is set, False otherwise.
function FSupportsFileCompression: boolean;*************************************************************************** function CaseIsPreserved - Return the FS_FILE_COMPRESSION bit status. Input parameters: NONE Output parameters: The function returns True if FS_FILE_COMPRESSION is set, False otherwise.
function FUnicodeStoredOnDisk: boolean;*************************************************************************** function CaseIsPreserved - Return the FS_UNICODE_STORED_ON_DISK bit status. Input parameters: NONE Output parameters: The function returns True if FS_UNICODE_STORED_ON_DISK is set, False otherwise.
function FVolumeIsCompressed: boolean;*************************************************************************** function CaseIsPreserved - Return the FS_VOL_IS_COMPRESSED bit status. Input parameters: NONE Output parameters: The function returns True if FS_VOL_IS_COMPRESSED is set, False otherwise.
function GetUNCDrive: string;***************************************************************************
function GetUNCDrive - Gets the Volume label for the specified drive.
Input parameters: NONE
Output parameters: The function returns a string containing the UNC file name,
that could have two possible forms:
***************************************************************************
function GetVolumeFileSystemFlags - Gets the Volume file system flags for
the specified drive.
Input parameters: NONE
Output parameters: The function returns an integer containing the volume file
system flags, or 0 (zero) if some error occurs.
***************************************************************************
function GetVolumeFileSystemName - Gets the file system name (usually FAT or
NTFS) for the specified drive.
Input parameters: NONE
Output parameters: The function returns a string containing the file system
name, or an empty string if some error occurs.
***************************************************************************
function GetVolumeLabel - Gets the Volume label for the specified drive.
Input parameters: NONE
Output parameters: The function returns a string containing the volume name,
or an empty string if some error occurs.
***************************************************************************
function GetVolumeSerialNumber - Gets the Volume serial number for the
specified drive.
Input parameters: NONE
Output parameters: The function returns a string containing the volume serial
number, or an empty string if some error occurs.
***************************************************************************
procedure SetUNCDrive - Sets the FUNCDrive, that is UNC file name of the root
directory of the drive specified by FDrive. If FDrive
is local, FUNCDrive is of the form:
Properties Published declarations Events Variables Private declarations
function GetVolumeFileSystemFlags: integer;
function GetVolumeFileSystemName: string;
function GetVolumeLabel: string;
function GetVolumeSerialNumber: string;
procedure SetDrive(DriveLetter: char);
procedure SetUNCDrive;
property Drive : char
property UNCDrive : string
property CaseIsPreserved : boolean
property CaseSensitive : boolean
property PersistentACLs : boolean
property SupportsFileCompression : boolean
property UnicodeStoredOnDisk : boolean
property Version : string
property VolumeFileSystemFlags : integer
property VolumeFileSystemName : string
property VolumeIsCompressed : boolean
property VolumeLabel : string
property VolumeSerialNumber : string
event OnError : TErrorEvent
FDrive : char;
FErrorEvent : TErrorEvent;
FUNCDrive : string;
FVersion : string;