CopyFile gibt Datei nicht frei?

[DGL-luke]

Sodele. So funktionierts immer:

Delphi-Quellcode:

attmpts := 0;
  for i := 1 to 10 do
  begin
  FHandle := CreateFile(@LogName[1],GENERIC_READ,FILE_SHARE_READ,nil,
                                OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

  if FHandle <> INVALID_HANDLE_VALUE then
  begin
    attmpts := i;
    Break
  end
  else
    Sleep(50);
  end;

Dieses Filehandle kann man dann z.B. einem Filestream übergeben (TFileStream.Create(FHandle).