Копирование файлов без чтения строк. - Общие вопросы Delphi

Alex Cones · 17.04.2009, 20:29

Как в Дельфи скопировать несколько файлов из одной директории в другую НЕ записывая их построчно (что ОЧЕНЬ тормозит весь процесс, тем более, что некоторые файлы имеют не txt формат)?

uberchel · 17.04.2009, 20:37

Вот! держи, может подойдёт.
Стандартное копирование папок в windows

http://www.programmersforum.ru/showthread.php?t=42353

Помог? если да, то нажмите на весы с лева =)

Alex Cones · 17.04.2009, 21:18

А без вылезания окошка никак сделать нельзя? А то форма во весь экран (и поверх пуска), а во время копирования идет переход активности для окошка "копирование" - теряется развертка во весь экран + мерцает.

P.S. Но вообще за код спасибо. Все равно пригодится.

oleg kutkov · 17.04.2009, 22:18

Проще простого. берем за основу предидущий пример и меняем там вот эту строчку:

Код:

fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;

на

Код:

fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SILENT;

Если нужно еще и избавится от окон с предложением заменить существующий файл, автоматом отвечая "Да" - то нужно добавить в эту строку еще FOF_NOCONFIRMATION;

Alex Cones · 18.04.2009, 10:16

Отлично! Спасибо!

P.S. Хм... Во время выполнения форма подвисает (что разумеется неизбежно) неплохо бы было вставить в код строку, меняющую курсор на HourGlass. А как? Менять у всех обьектов на форме Cursor:=crHourGlass будет достаточно долго.

Скандербег · 18.04.2009, 11:00

Курсоры принадлежность объекта Screen. Поэтому нет необходимости менять форму курсора у всех объектов.
Достаточно одной строчки: Screen.Cursor:=crHourGlass;

Олвин · 18.04.2009, 11:07

А разве нельзя изменить курсор у всей формы?[code]form1.cursor := crHourglass;[\code]

17.04.2009, 20:29	#1
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	Копирование файлов без чтения строк. Как в Дельфи скопировать несколько файлов из одной директории в другую НЕ записывая их построчно (что ОЧЕНЬ тормозит весь процесс, тем более, что некоторые файлы имеют не txt формат)? SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

17.04.2009, 21:18	#3
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	А без вылезания окошка никак сделать нельзя? А то форма во весь экран (и поверх пуска), а во время копирования идет переход активности для окошка "копирование" - теряется развертка во весь экран + мерцает. P.S. Но вообще за код спасибо. Все равно пригодится. SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ

17.04.2009, 22:18	#4
oleg kutkov Unix C++ developer Форумчанин Регистрация: 16.04.2007 Сообщений: 651	Проще простого. берем за основу предидущий пример и меняем там вот эту строчку: Код: `fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;` на Код: `fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION or FOF_SILENT;` Если нужно еще и избавится от окон с предложением заменить существующий файл, автоматом отвечая "Да" - то нужно добавить в эту строку еще FOF_NOCONFIRMATION;

18.04.2009, 10:16	#5
Alex Cones Trust no one. Старожил Регистрация: 07.04.2009 Сообщений: 6,526	Отлично! Спасибо! P.S. Хм... Во время выполнения форма подвисает (что разумеется неизбежно) неплохо бы было вставить в код строку, меняющую курсор на HourGlass. А как? Менять у всех обьектов на форме Cursor:=crHourGlass будет достаточно долго. SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА. МОЙ БЛОГ GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ Последний раз редактировалось Alex Cones; 18.04.2009 в 10:55.

18.04.2009, 11:07	#7
Олвин Экспериментатор Форумчанин Регистрация: 16.04.2008 Сообщений: 218	А разве нельзя изменить курсор у всей формы?[code]form1.cursor := crHourglass;[\code] Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс

17.04.2009, 20:37	#2
uberchel Участник клуба Регистрация: 19.01.2009 Сообщений: 1,453	Вот! держи, может подойдёт. Стандартное копирование папок в windows http://www.programmersforum.ru/showthread.php?t=42353 Помог? если да, то нажмите на весы с лева =)

18.04.2009, 11:00	#6
Скандербег Форумчанин Регистрация: 04.04.2009 Сообщений: 438	Курсоры принадлежность объекта Screen. Поэтому нет необходимости менять форму курсора у всех объектов. Достаточно одной строчки: Screen.Cursor:=crHourGlass;

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Последовательное копирование непустых строк..	Judge52	Microsoft Office Excel	2	13.03.2009 08:23
Копирование перекрывающихся строк strncpy	LinuxUser	Общие вопросы C/C++	2	01.12.2007 15:46
Копирование строк. Правильный ли код?	LinuxUser	Общие вопросы C/C++	12	06.11.2007 17:33
Сортировка в StringGrid'е, копирование строк из одного SG в другой	monushka	Помощь студентам	3	29.10.2007 23:54
Копирование строк	Mikola	Общие вопросы Delphi	8	21.09.2007 17:21