[bananan]

Юзаю такой код для копирования файла:

Код:

procedure FileCopy(const SourceFileName, TargetFileName: string);
var
  S, T : TFileStream;
begin
  S := TFileStream.Create(sourcefilename, fmOpenRead );
  try
    T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
    try
      T.CopyFrom(S, S.Size ) ;
      FileSetDate(T.Handle, FileGetDate(S.Handle));
    finally
      T.Free;
    end;
  finally
    S.Free;
  end;
end;

Admin: Пользуемся тегами для оформления кода, иначе последуют санкции!

так вот файл можно открыть только после завершения программы. Как его открыть после выполнения этой функции?

[Drozh]

Странно... У меня все открывает

Возможно файл большой и он не успевает скопироваться

[bananan]

закрыто. Действительно, все работает. Спасибо. Проблема была просто в другом (((