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

Вниз

Как скопировать папку с файлами в Delphi ???   Найти похожие ветки 

 
Alsan   (2006-02-14 01:38) [0]

Добрых вечера, суток помогите пожайлусто релизовать такой вопрос:
Как скопировать папку с файлами в Delphi ???

Примерно такое действие :

c:\win\test.exe только теперь нужно создать папку,
c:\winnt\test.exe.

У меня получаеться токо такое действие но тут я не могу создать новую папку ;

procedure TForm1.SpeedButton2Click(Sender: TObject);
  var
FF,ff1:TFileStream;
begin
FF:=TFileStream.Create("c:\win\test.exe",fmOpenRead);
FF1:=TFileStream.Create("c:\winnt\test.exe",fmCreate); - тут проблема
FF1.CopyFrom(FF,FF.Size);
FF.Free;
FF1.Free;

end;

Помогите буду очень блогодарен !


 
Eraser ©   (2006-02-14 02:15) [1]


> Alsan   (14.02.06 01:38)

SHFileOperation + FO_COPY
+ F1


 
Alsan   (2006-02-14 03:51) [2]

Я тебя понял токо !!! Будь добрым покажы на примере, мне очень важно посмотреть как это правильно реализовать !!!

Заранение очень благодарен.!


 
Alsan   (2006-02-14 03:55) [3]

Да если можно зделать так что-бы windows не кричала что создайот файл
или обновляет !!!


 
AbrosimovA   (2006-02-14 09:55) [4]

function FileCopy(FileName:string;FromPath,ToPath:string):boolean;
var SHFO: TSHFileOpStruct;
begin
with SHFO do
begin
wnd := MainForm.Handle;
wFunc := FO_COPY;
pFrom := PChar(FromPath+FileName+#0);
pTo := PChar(ToPath+FileName+#0);
fFlags :=FOF_FILESONLY;
end;
Result := SHFileOperation(SHFO)=0;
end;


 
AbrosimovA   (2006-02-14 10:00) [5]

К предыдущему посту: uses ShellAPI;


 
Aslan ©   (2006-02-14 15:41) [6]

Да всё хорошо уважаимые програмисты ну как это вигледит на примере ????



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

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

Наверх




Память: 0.48 MB
Время: 0.04 c
2-1140011423
Ice
2006-02-15 16:50
2006.03.05
Виртуальный TCanvas и его фоновый цвет...


2-1139737431
psa247
2006-02-12 12:43
2006.03.05
Убрать SmallImages у ListView


2-1140293509
49 Cent
2006-02-18 23:11
2006.03.05
Как перенсти данные из одного Adotable в другой Adotable?


2-1140033420
49 Cent
2006-02-15 22:57
2006.03.05
Может ли Dbgrid отображать подтаблицу?


15-1139762670
Admeral
2006-02-12 19:44
2006.03.05
Шаровары или Денейтвары?