freepascal.ru

Код: Выделить всё

function sys_copyfile(const oldfile,newfile: msestring): syserrorty;
var
 str1,str2: string;
begin
 if iswin95 then begin
  str1:= winfilepath(oldfile,'');
  str2:= winfilepath(newfile,'');
  if windows.copyfilea(pchar(str1),pchar(str2),false) then begin
   result:= sye_ok;
  end
  else begin
   result:= syelasterror;
  end;
 end
 else begin
  if windows.copyfilew(pmsechar(winfilepath(oldfile,'')),
                         pmsechar(winfilepath(newfile,'')),false) then begin
   result:= sye_ok;
  end
  else begin
   result:= syelasterror;
  end;
 end;
end;

Код: Выделить всё

function copyfile(const oldfile,newfile: filenamety; 
                                const canoverwrite: boolean = true): boolean;
                      //false if dest exists and not canoverwrite
begin
 if not canoverwrite and findfile(newfile) then begin
  result:= false;
 end
 else begin
  result:= true;
  syserror(sys_copyfile(oldfile,newfile),'Can not copy File "'+oldfile+
            '" to "'+newfile+'": ');
 end;
end;