Форум: "Начинающим";
Текущий архив: 2008.03.30;
Скачать: [xml.tar.bz2];

Вниз

Что то я туплю. Как создать папку средствами Делфи?   Найти похожие ветки 

← →
webSQLNeederr   (2008-03-05 21:10) [0]

Что то я туплю. Как создать папку средствами Делфи?

---

← →
No_Dead ©   (2008-03-05 21:16) [1]

mkdir

---

← →
webSQLNeederr   (2008-03-05 21:50) [2]

Другой вопрос: как скопировать исходную директорию в другую директорию вместе со всеми файлами из исходной папки?

---

← →
Johnmen ©   (2008-03-05 22:18) [3]

> Как создать папку средствами Делфи?

ForceDirectories

> Другой вопрос

+F1

---

← →
No_Dead ©   (2008-03-06 00:34) [4]

> [2] webSQLNeederr   (05.03.08 21:50)


unit FilesOp;

interface

uses Forms, SysUtils, ShellAPI, Dialogs;

procedure CopyFiles(const FromFolder: string; const ToFolder: string);

implementation

procedure CopyFiles(const FromFolder: string; const ToFolder: string);
var
 Fo      : TSHFileOpStruct;
 buffer  : array[0&#1334096] of char;
 p       : pchar;
begin
 FillChar(Buffer, sizeof(Buffer), #0);
 p := @buffer;
 StrECopy(p, PChar(FromFolder)); //директория, которую мы хотим скопировать
 FillChar(Fo, sizeof(Fo), #0);
 Fo.Wnd    := Application.Handle;
 Fo.wFunc  := FO_COPY;
 Fo.pFrom  := @Buffer;
 Fo.pTo    := PChar(ToFolder); //куда будет скопирована директория
 Fo.fFlags := 0;
 if ((SHFileOperation(Fo) <> 0) or (Fo.fAnyOperationsAborted <> false)) then
   ShowMessage("File copy process cancelled")
end;

end.


---

← →
webSQLNeederr   (2008-03-06 08:34) [5]

No_Dead Большое спасибо!

---

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

Форум: "Начинающим";
Текущий архив: 2008.03.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.044 c