Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Файловые операции


Добавить код в данный раздел
 поиск файла

Procedure find(ss:string);

Прислал: PsixXx ( 20 января 2006 г. )
Количество просмотров: 2397


 Разбивка файла на части

procedure SplitFile(FileName: string; PartSize: integer);

Прислал: Ростислав Гайдов (Сочи) ( 27 октября 2004 г. )
Количество просмотров: 2567


 Сжатие в CAB

procedure CAB_M

Прислал: WarrioR ( 2 октября 2004 г. )
Количество просмотров: 2490


 Процедура вычисления размера каталога

procedure GetDirSize(const aPath: String;var SizeDir: Int64);

Прислал: panov ( 30 марта 2004 г. )
Количество просмотров: 1783


 Сравнение двух файлов по содержимому не используя TMemoryStream (используется только модуль windows)

function CompareFiles(file1, file2: string; createtempfile: boolean): boolean;

Прислал: KosilkA (Koenigsberg) ( 10 марта 2004 г. )
Количество просмотров: 2599


 Копирование содержимого директории, вместе с поддиректориями.

Function FullDirectoryCopy(SourceDir, TargetDir:String; StopIfNotAllCopied, OverWriteFiles:Boolean):Boolean;

Прислал: VID (Махачкала) ( 31 января 2003 г. )
Количество просмотров: 3230


 Создание указанного пути

Function CreateDirEx(Dir:String):Boolean;

Прислал: VID (Махачкала) ( 28 января 2003 г. )
Количество просмотров: 2743


 Создание hardlink и symbolic link.

unit XLink

Прислал: Alex Konshin (Boston, USA) ( 30 декабря 2002 г. )
Количество просмотров: 3083


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

procedure BootReplaceFile(TargetFileName, SourceFileName: string)

Прислал: Dimka Maslov (Санкт-Петербург) ( 18 ноября 2002 г. )
Количество просмотров: 2550


 Сохранение массива c изображениями

intermediate save\load

Прислал: [NIKEL] (Norilsk) ( 15 сентября 2002 г. )
Количество просмотров: 3198


 Определение суммарного размера файлов в папке, включая вложенные

intermediate GetDirSize

Прислал: Dimka Maslov (Санкт-Петербург) ( 13 сентября 2002 г. )
Количество просмотров: 2965


 Класс (компонент) для рекурсивного обхода дерева каталогов (вего диска или заданной папки). На каждый файл и директорию вызывается соответствующий event.

unit TreeWalker;

Прислал: Святослав (Saint Petersburg) ( 11 августа 2002 г. )
Количество просмотров: 2991


 Поиск файлов в директории и поддиректориях по маске.

procedure SearchInDir(Mask, Dir: string; Subdir: Boolean; var List: TStringList);

Прислал: Vadim (Moscow) ( 16 июля 2002 г. )
Количество просмотров: 3856


 Удаление содержимого каталога

procedure DeleteFiles(Path: string);

Прислал: demon-777 (Питер) ( 26 мая 2002 г. )
Количество просмотров: 3233


 Удаление файла в корзину

function Recycle(const FileName: string; Wnd: HWND = 0): Boolean;

Прислал: Dimka Maslov (Санкт-Петербург) ( 06 мая 2002 г. )
Количество просмотров: 2931


 Удаление непустого каталога вместе с подкаталогами

function FullRemoveDir(Dir:string; DeleteAllFilesAndFolders, StopIfNotAllDeleted, RemoveRoot:boolean):Boolean;

Прислал: lipskiy (Санкт-Петербург) ( 26 апреля 2002 г. )
Количество просмотров: 3418


 Поиск файлов по маске по всему дереву каталогов, начиная с указанного

procedure FindFiles(StartFolder, Mask: String; List: TStrings; ScanSubFolders: Boolean = True);

Прислал: Dimka Maslov (Санкт-Петербург) ( 29 апреля 2002 г. )
Количество просмотров: 3970




Добавить код в данный раздел

Наверх ▲