| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Копирование БД [D7, Paradox]

russko ©   (2004-03-23 09:16:00) 

Каким образом можно скопировать целую директорию с БД?

---

KVP   (2004-03-23 13:15:00) [1]

procedure TFTables.SpeedButton6Click(Sender: TObject);
var                                  //Резервное копирование
 OpStruc: TSHFileOpStruct;
 frombuf, tobuf: Array [0..128] of Char;
Begin
If ReadBool then begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
If ComboBox1.Text='RZA' then begin
  StrPCopy( frombuf,NameAlias+'*.*');
 StrPCopy( tobuf,NameDir);
                ABol:=true;
                              end;
If  ABol=true then begin
With OpStruc DO Begin
 Wnd:= Handle;
 wFunc:= FO_COPY;
 pFrom:= @frombuf;
 pTo:=@tobuf;
// fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fFlags:= FOF_NOCONFIRMATION  ;
 fAnyOperationsAborted:= False;
 hNameMappings:= Nil;
 lpszProgressTitle:= Nil;
end;
ShFileOperation( OpStruc );
        end;
                end;
      ABol:=false;  
end;

---

Vlad   (2004-03-23 09:51:00) [2]

В FAQ !

---

Zacho   (2004-03-23 09:33:00) [3]

RTFM CopyFile например.

---

russko   (2004-03-23 09:28:00) [4]

ООчень смешно, но всё-таки - оочень надо.

---

Алхимик   (2004-03-23 09:27:00) [5]

Открыть 2 окна, перетащить с помошью мышки. :)

---

Zacho   (2004-03-23 09:22:00) [6]

Обычным. Как и любую другую директорию. Никакой разницы нет.

---

russko   (2004-03-23 09:22:00) [7]

ТОгда подскажи как?

---

Наверх