Zkoušel jsem copyfile (taktéž i movefile, ale se stejným výsledkem) na windows XP 32:
copyfile(PChar(s),PChar(targerFile));
či
obě mi hodí vyjímku v antiwin :
procedure CopyFile(FromFileName,TofileName:string);
var FromFile, ToFile: file;
begin
AssignFile(FromFile, FromFilename);
AssignFile(ToFile, ToFilename);
Reset(FromFile); (* NENI OSETRENO NA CHYBU *)
try
Rewrite(ToFile);
try // https://www.frameworkpascal.com/helphtml/lzexpand_unit.htm
if LZCopy (TFileRec(FromFile).Handle,
TFileRec(ToFile).Handle) < 0 then
raise EInOutError.Create('Error copying file');
finally
CloseFile(ToFile);
end;
finally
CloseFile(FromFile);
end;
end;
'Error copying file'Cílový soubor se vytvořil, ale je prázdný.
FromFileName,TofileName má správné hodnoty, ale kukátkem na FromFile a ToFile nic nevidím.
Jak to vyřešit? Původně jsem chtěl jen přesun souboru, jako aby se nic nekopírovalo ale zdá se že to nejde.