nOobCrafter
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
уф, как то занимался инно но давно это было. Сейчас по нужде опять сталкиваюсь, появились вопросы, можно ли пользоваться масками когда пробегаемся по файлам в папке?..типа найти и скопировать все файлы *.exe \ *.dll?
Чего там много спрашиваю собсна, есть функция:
Код: procedure BackupDir(const FromDir,ToDir,FileMask:string;IsRemove,IncludeSubDirs:boolean);
var
FindRec:TFindRec;
sFileName,fd,td:string;
begin
fd:=AddBackslash(FromDir);
td:=AddBackslash(ToDir);
ForceDirectories(td);
if FindFirst(fd+FileMask,FindRec) then begin
try
repeat
sFileName:=fd+FindRec.Name;
if ((FindRec.Attributes and FILE_ATTRIBUTE_DIRECTORY)=0) then CopyFile_(sFileName,td,IsRemove)
else
if IncludeSubDirs then
if (FindRec.Name<>'') and (FindRec.Name<>'.') and (FindRec.Name<>'..') then
BackupDir(sFileName,td+FindRec.Name,FileMask,IsRemove,IncludeSubDirs);
until not FindNext(FindRec);
finally
FindClose(FindRec);
end;
end;
end; |
Ну запускаем ее соответственно:
Код:| BackupDir('from' ,'To', '*.exe', False, False); |
Верно ли сделано? или есть вариант попроще?..
З.Ы. предложение вставить код в проект и запустить не предлагать.) Есть проблемы
2 Cross45
Цитата:| Такая проблема: если делать несколько типов установки (полный, выборочный), как ему указать вес первого компонента, вес второго и т.д.? |
Никак, вы указываете какие файлы добавить в дистриб, а потом указываете какому компоненту он соответствует, в описании компонентов вы указываете в какие типы установки он входит (компонент). то етсь напрямую нельзя. имхо. |
Всего записей: 99 | Зарегистр. 26-06-2008 | Отправлено: 14:15 27-02-2009 | Исправлено: nOobCrafter, 14:19 27-02-2009 |
|
