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

Вниз

Как скопировать папку   Найти похожие ветки 

 
esa ©   (2003-04-01 06:23) [0]

Как в делфи скопировать папку с одного места на другое, вместе с содержащимися в ней файлами.


 
dimich1978 ©   (2003-04-01 08:29) [1]

в edit2.text вводиш источник а в edit3.text получатель
procedure TForm1.SpeedButton5Click(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, edit2.text+"*.*");
StrPCopy( tobuf, edit3.text);
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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.012 c
1-30389
KykQx
2003-03-30 07:22
2003.04.10
список всех открытых в системе файлов


1-30351
Ахурамазда
2003-03-31 20:43
2003.04.10
COM & ActiveX


1-30414
Скаил
2003-03-28 13:26
2003.04.10
Какое событие возникает при копировании файла на дискету?


6-30493
DimonZh
2003-02-18 20:21
2003.04.10
Wake On Lan


3-30229
Lesha
2003-03-19 22:06
2003.04.10
QReport! как через QPreview мне сделать чтоб по PrinterSetup пере