| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Что то я туплю. Как создать папку средствами Делфи?
webSQLNeederr © (2008-03-05 21:10:00)Что то я туплю. Как создать папку средствами Делфи?
webSQLNeederr (2008-03-06 08:34:00) [1]No_Dead Большое спасибо!
No_Dead (2008-03-06 00:34:00) [2]> [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�] 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.
Johnmen (2008-03-05 22:18:00) [3]
> Как создать папку средствами Делфи?
ForceDirectories
> Другой вопрос
+F1
webSQLNeederr (2008-03-05 21:50:00) [4]Другой вопрос: как скопировать исходную директорию в другую директорию вместе со всеми файлами из исходной папки?
No_Dead (2008-03-05 21:16:00) [5]mkdir
| |
