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

← →
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

> [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 Большое спасибо!

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