Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

Копирование папки   Найти похожие ветки 

 
Magisimus ©   (2004-03-16 12:29) [0]

Подскажите пожалуйста готовый текст процедуры для копирования папки
Заранее спасибо
P.S. Вопрос конечно близок к как написать windows, но ответить то на него реально...


 
Skier ©   (2004-03-16 12:39) [1]

FAQ или SHFileOperation(...)


 
Serge ©   (2004-03-16 13:05) [2]

Go to Delphi Kingdom, there is an article vs. file operations.


 
Magisimus ©   (2004-03-16 17:43) [3]

В FAQ"е ничего не нашёл, shfileoperation ни существует...
Зато подумав написал сам: кому нужно копируйте
procedure TMainForm.copydir(const exd, nd: string);
var sr:tsearchrec;
begin
forcedirectories(nd);
findfirst(exd+"\*.*",faanyfile,sr);
repeat
showmessage(sr.Name);
if (sr.Name[1]<>".") then
if (sr.Attr and fadirectory)=fadirectory then
begin
copydir(exd+"\"+sr.Name,nd+"\"+sr.Name);
end else
begin
copyfile(pchar(exd+"\"+sr.name),pchar(nd+"\"+sr.Name),false);
end;
until findnext(sr)<>0;
findclose(sr);
end;


 
Magisimus ©   (2004-03-16 17:49) [4]

Тока showmessage убрать надо;)


 
Александр1 ©   (2004-03-16 18:03) [5]

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
 OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "h:\hook\*.*" );
StrPCopy( tobuf, "d:\temp\brief" );
With OpStruc DO Begin
 Wnd:= Handle;
 wFunc:= FO_COPY;
 pFrom:= @frombuf;
 pTo:=@tobuf;
 fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
 fAnyOperationsAborted:= False;
 hNameMappings:= Nil;
 lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
end;



Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.028 c
3-1078825630
F...
2004-03-09 12:47
2004.04.04
Вопрос по DBGrid.Columns!


3-1078394011
vovchik
2004-03-04 12:53
2004.04.04
универсальная строка подключния


1-1079419382
Dastin
2004-03-16 09:43
2004.04.04
Delphi


11-1058794263
IronWit
2003-07-21 17:31
2004.04.04
Как программно создать и удалить combobox


11-1058043525
Maxim Pushkar
2003-07-13 00:58
2004.04.04
Иконки в меню