диск директория файл

функции работы с дисками

DiskFree(D:byte):LongInt
Возвращает в байтах кол-во свободног

GetLogicalDrives возвращает маску присутствующих в системе дисков.

Integer(Drives) := GetLogicalDrives;for i

Компонент FileListBox

Свойство FileType позволяет задать типы отображаемых файлов .Возможные значения

Функции в Delphi для работы с файлами.
AssignFile(var F ;FileName:String);
Связывает

FindNext (var F:TSearhRec) Integer - Возвращает следующий найденный файл ,используется после

Eoln(Var :F:TextFile):Boolean Тестирует маркер конца строки и при достижении его возвращает

FileExist(Const FileName:string,):Boolean - Проверяет существование файла ,true если файл существует
FindClose(var TSearhRec)

Работа с файлами при помощи потоков

var F:TFileStream;
begin
F:=TFileStream.Create(Name,fmOpenRead); // файл открыт для

Размер файла

Var F:FileStream;
begin F:;=TFileStream.Create(Name,fmOpenRead) ;
Edit2.text:=IntToStr(F,size);
F.Free;
end;

Копирование файлов

Procedure FileCopy(Const Path1,Path2);
var S,D:TFileStream;
begin
S:=TFileStream.Create(Path1,fmOpenRead);
D:=TFileStream.Create(Path2,fmOpenWrite OR fmCreate);
D.CopyFrom(S,S.Size);
D.Free;
S.Free;
End;

Определение даты и времени создания файлов
Для определения следует воcпользоваться функцией FileGetDate
Пример:
functionGetFileData(TheFileName:string):string;
var

Создаём заблокированный файл

путём создания файла при помощи функции OpenFile: hMyLockedFile

Самый простой способ решить эту проблемму - это использовать MemoryStream вместо

Процедуры и функции для работы с директориями

DirectoryExists(Dir: string);
Функция DirectoryExists служит для

ForceDirectories(Dir: string);
Процедура ForceDirectories служит для создания необходимых подкаталогов .Каталог не должен

SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean;
Функция SelectDirectory служит для

ChDir(Path: string);
Изменяет текущий каталог Path- строковое выраение содержащее путь к

CreateDirectoryEx
Расширенная функция для создания новой директории. При создании используется указанный

GetCurrentDirectory
Функция позволяет узнать текущую директорию, с которой сейчас работает твоя

RemoveDirectory
Функция удаляет директорию. Если внутри есть хотя бы один файл

Пример
function DeleteDir(Dir : string)
boolean;Var Found : integer;
SearchRec :

else if not DeleteFile(SearchRec.Name) then
begin
ShowMessage('Не могу удалить файл:

Переименование каталога

uses ShellApi;
procedure RenameDir(DirFrom, DirTo: string);
var shellinfo: TSHFileOpStruct;

procedure TForm1.Button1Click(Sender: TObject);
begin
RenameDir('C:\Dir1', 'C:\Dir2');
end