Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
ВнизТипы. Или помогите прочитать HELP Найти похожие ветки
← →
TonnyS (2001-12-19 11:15) [4]я для копирования пользуюсь следующим кодом (позволяет задавать маски):
function CopyFiles(const source, dest : string): boolean;
var
F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
F.pFrom :=pchar(Source+#0);
F.pTo := pchar(Dest+#0);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result := (ShFileOperation(F) = 0);
end;
при копировании стандартный виндовское окно выскакивает.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.008 c