Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата



Returns the size of the named file without opening the file. If the file

doesn't exist, returns -1.

}

function GetFileSize(const FileName: string): LongInt;

var

SearchRec: TSearchRec;

begin

if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then

Result := SearchRec.Size

else Result := -1;

end;

function FileDateTime(const FileName: string): System.TDateTime;

begin

Result := FileDateToDateTime(FileAge(FileName));

end;

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

begin

Result := (FileGetAttr(FileName) and Attr) = Attr;

end;

function ExecuteFile(const FileName, Params, DefaultDir: string;

ShowCmd: Integer): THandle;

var

zFileName, zParams, zDir: array[0..79] of Char;

begin

Result := ShellExecute(Application.MainForm.Handle, nil,

StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),

StrPCopy(zDir, DefaultDir), ShowCmd);

end;

end.

 

Краткое руководство пользователя.

Программа предназначена для управления файловой системой операционной системы Windows’95/’98, в программе предусмотрены следующие возможности:

Копирование, переименование, перенос, удаление файлов и директорий;

Определение и установка атрибутов файлов;

Расширенный поиск файлов по маске;

Запуск программ со строкой параметров;

Применение маски-фильтра при просмотре списка файлов;

Создание директорий;

Определение размера директории;

Определение суммарного объёма дискового пространства занимаемого группой файлов;

Получение информации о текущем диске;

Запуск внешних программ редакторов для просмотра и редактирования файлов;

Установка интерфейсных параметров программы.

Рекомендуем скачать другие рефераты по теме: титульный реферата, курсовая работа на тему.

Предыдущая страница реферата | 3  4  5  6  7  8  9  10  11  12  13 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки