使用copyfile 拷贝文件后大小发生变化该怎么办(100分)

procedure TForm1.Button1Click(Sender: TObject);
var
ErrorMessage: Pointer; // holds a system error string
ErrorCode: DWORD; // holds a system error code
begin
{blank out the status bar}
StatusBar1.SimpleText:='';

{attempt to copy the file}
CopyFile(PChar('//yxhserver/databak/databak.bak'),
PChar('d:/asda.bak'),
false);
{if the file was not copied, display the error message}
ErrorCode := GetLastError;
FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER or FORMAT_MESSAGE_FROM_SYSTEM,
nil, ErrorCode, 0, @ErrorMessage, 0, nil);
StatusBar1.SimpleText:='Error Copying File: '+string(PChar(ErrorMessage));
LocalFree(hlocal(ErrorMessage));
end;

ErrorMessage 的值是“操作成功”

什么意思啊？
copyfile是不会变化大小的，变化了肯定是机器上有病毒。

源文件大小是130M 拷贝后的目标文件只有40M，
我拷贝的是一数据库备份文件，目标文件居然可以恢复到数据库上

应该不会出现这种情况，你可以试着copy以下其他文件，如果还是如此，只能是wolf_cyj说的了。

对,Copyfile肯定是对的，我一直在用
如果真的大小不一样，就应该是病毒

密切关注

多人接受答案了。