Форум: "Базы";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
ВнизКопирование БД Найти похожие ветки
← →
russko © (2004-03-23 09:16) [0]Каким образом можно скопировать целую директорию с БД?
← →
Zacho © (2004-03-23 09:22) [1]Обычным. Как и любую другую директорию. Никакой разницы нет.
← →
russko © (2004-03-23 09:22) [2]ТОгда подскажи как?
← →
Алхимик © (2004-03-23 09:27) [3]Открыть 2 окна, перетащить с помошью мышки. :)
← →
russko © (2004-03-23 09:28) [4]ООчень смешно, но всё-таки - оочень надо.
← →
Zacho © (2004-03-23 09:33) [5]RTFM CopyFile например.
← →
Vlad © (2004-03-23 09:51) [6]В FAQ !
← →
KVP © (2004-03-23 13:15) [7]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;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c