Datei kopieren (datei wird verwendet)

[ghost007]

hm,
ich versuch gerade den fehler zu lokalisieren ... aber irgendwie erstelt er die dateien zwar alle, aber die haben 0KB und sind leer

EDIT:

hab mir folgende procedure draus gebastelt ...

Delphi-Quellcode:

procedure CopyEx(const FileName, NewFile: string);
 var
  iFileHandleIn,iFileLength,iBytesRead:integer;
  buffer:pointer;
  iFileHandleOut,sizeofbuffer:integer;
begin
 iFileHandleIn := FileOpen(filename, fmShareDenyNone);
 iFileLength := FileSeek(iFileHandleIn,0,2);
 FileSeek(iFileHandleIn,0,0);
 Buffer := PChar(AllocMem(iFileLength + 1));
 iBytesRead := FileRead(iFileHandleIn, Buffer^, iFileLength);
 FileClose(iFileHandleIn);
 iFileHandleOut := FileCreate(NewFile);
 FileWrite(iFileHandleOut,Buffer,SizeOfBuffer);
 FileClose(iFileHandleOut);
end;