Открыть занятый другим процессом файл.

[Max1548]

Скажу сразу, был в интернете и пробовал ряд решений оттуда.
Например, способ открытия файла:

function FileAnyway(Addr: string):string;
var
  nfS, fS:TFileStream;
begin
  fS := TFileStream.Create(Addr, fmShareDenyNone + fmOpenReadWrite);
  nfS := TFileStream.Create(Addr + '.tmp', fmShareDenyNone + fmOpenReadWrite);
  nfs.CopyFrom(fS, fS.Size);
  nfs.Free;
  fS.Free;
  Used[J] := Addr + '.tmp';
  J := J + 1;
  Result := Addr + '.tmp';
end;

Не открывает.

Открытие вызываю так:

    try
      if FileExists(ExpandEnvironmentString(path))
        then formData.AddFile('mf1', ExpandEnvironmentString(path), 'application/octet-stream');
    except
      str := FileAnyway(ExpandEnvironmentString(path));
      formData.AddFile('mf1', str, 'application/octet-stream');
    end;

Пробовал так же через CopyFile, была идея выбивать процесс из памяти, но заказчик не одобрил. Кстати говоря, хотелось бы также скрыть системное окно ошибки, потому что опять же портится эстетичная часть проекта.
Огромное спасибо всем заранее!

[northener]

Сообщение от Max1548

Скажу сразу, был в интернете и пробовал ряд решений оттуда.

Лучше б вы потратили своё время на что-то более полезное. Например на RTFM.

[Max1548]

Сообщение от northener

Лучше б вы потратили своё время на что-то более полезное. Например на RTFM.

Лучше бы Вы по теме ответили. Object Pascal я использую очень редко.

[Человек_Борща]

а это и не object pascal, это delphi

[Max1548]

Сообщение от Человек_Борща

а это и не object pascal, это delphi

Delphi - среда разработки + фреймворк для паскаля.

Так по моему вопросу что-то будет? Или будет долго обсуждение того, что мне надо было читать и как называется ЯП?

[eval]

http://www.bing.com/search?q=%D0%9E%...onversationid=

[Аватар]

Открытый эксклюзивно файл повторно не открыть. Только всякие хакерские штучки типа найти хендл открытого файла или прямой доступ к диску. Возможно получится и через сервис Volume Shadow Copy