Unit FileUtil

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995, 1996 AO ROSNO } { Copyright (c) 1997 Master-Bank } { } {

Classes

Functions

BrowseDirectory -
ClearDir -
CopyFile -
DeleteFiles -
DirExists -
FileDateTime -
FileLock -
FileUnlock -
GetFileSize -
HasAttr -
LongToShortFileName -
LongToShortPath -
MoveFile -
NormalDir -
ShortToLongFileName -
ShortToLongPath -
ValidFileName -

Types

Constants

Variables


Functions


function BrowseDirectory(var FolderName: string; const DlgText: string; AHelpContext: THelpContext): Boolean;


function ClearDir(const Path: string; Delete: Boolean): Boolean;


procedure CopyFile(const FileName, DestName: string; ProgressControl: TControl);


function DeleteFiles(const FileMask: string): Boolean;


function DirExists(Name: string): Boolean;


function FileDateTime(const FileName: string): TDateTime;


function FileLock(Handle: Integer; Offset, LockSize: Longint): Integer;


function FileUnlock(Handle: Integer; Offset, LockSize: Longint): Integer;


function GetFileSize(const FileName: string): Longint;


function HasAttr(const FileName: string; Attr: Integer): Boolean;


function LongToShortFileName(const LongName: string): string;


function LongToShortPath(const LongName: string): string;


procedure MoveFile(const FileName, DestName: TFileName);


function NormalDir(const DirName: string): string;


function ShortToLongFileName(const ShortName: string): string;


function ShortToLongPath(const ShortName: string): string;


function ValidFileName(const FileName: string): Boolean;


Types


Constants


Variables