心动吧DELPHI网络书

拷贝文件

类　别:系统控制
 
Function CopyFile(FromFile,ToFile:String): Boolean;Var  FromF, ToF: file;{$IFDEF WIN32}  NumRead, NumWritten: Integer;{$ELSE}  NumRead, NumWritten: Word;{$ENDIF}  Buf: array[1..2048] of Char;Begin  If IsDir(FromFile) Then  Begin  
  {MessageDlg('在拷贝文件时出现错误。文件名: '+FromFile,  mtWarning, [mbOk], 0);}  
  Result := False; 
 End 
 Else 
 Begin  
  AssignFile(FromF, FromFile); 
   AssignFile(ToF, ToFile);  
  Try    
  FileMode := 0; 
 {Sets Reset To ReadOnly}   
   Reset(FromF, 1);{ Record size = 1 }  
    FileMode := 2;  {Sets Reset To ReadWrite}  
    Rewrite(ToF, 1);{ Record size = 1 }  
    repeat    
    BlockRead(FromF, Buf, SizeOf(Buf), NumRead);   
     BlockWrite(ToF, Buf, NumRead, NumWritten);  
    until (NumRead = 0) or (NumWritten <> NumRead);  
    System.CloseFile(FromF);  
    System.CloseFile(ToF);   
   Result := True;    Except   
   On EInOutError Do   
   Begin    
    Result := False;   
   End;   
   Else Result := False;  
  End;  
  If Result = False Then  
    MessageDlg('在拷贝文件时出现错误。文件名: '+FromFile,    
    mtWarning, [mbOk], 0);
  End;
 

原创文章如转载，请注明：转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]

本文链接地址：http://www.abcxd.com/delphi/abcxddelphi/delphiDIRAA/249.html