Hallo,
Delphi-Quellcode:
iFileHandleIn := FileOpen(opendialog1.Files[l], fmShareDenyNone);
iFileLength := FileSeek(iFileHandleIn,0,2);
FileSeek(iFileHandleIn,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
FileClose(iFileHandle);
Jetzt ist die Datei in Buffer, und den dann mit FileWrite in eine andere Datei schreiben.
Delphi-Quellcode:
iFileHandleOut := FileCreate(SaveDialog1.FileName);
FileWrite(iFileHandleOut,Buffer,SizeOfBuffer));
FileClose(iFileHandleOut);
Das ist jetzt nur so "hingedaddelt", sollte aber vom Prinzip funktionieren. Wenn die Datei was größer ist, musst Du sie stückweise in Buffer lesen und dann schreiben.