Перезаписать открытый файл

[NEoMASTERR]

Добрый день. Как можно перезаписать файл который открыт чужим приложением?
Мне надо вынуть из файла текст, сохранить как пустой и всё. Помогите=) гугл не помог

var
  Str,str_: TStringList;
  FS: TFileStream;
...
  try
    FS := TFileStream.Create(edt1.text, fmOpenReadWrite or fmShareDenyNone);
    try
      str.LoadFromStream(FS);
    finally
      fs.WriteBuffer('',0);               // не работает((
      FS.Free;
    end;
  except
  end;

любая попытка перезаписать его через Rewrite или пустой TStringlist.savetofile приводят к ошибке открытия, т.к. файл занят чужим приложением, но через AkelPad я спокойно его могу сохранить пустым во время работы того приложения

сейчас изучаю исходник AkelPad'а но надеюсь тут мне помогут быстрее, к тому же исходник на C++ (

[NEoMASTERR]

Нашел решение

try
  FS := TFileStream.Create(edt1.text, fmOpenReadWrite or fmShareDenyNone);
  try
    str.LoadFromStream(FS);
    fs.Size:=0;
  finally
    FS.Free;
  end;
except
end;

[3D Hunter]

и в чем решение то?

[Stilet]

и в чем решение то?

В усечении: fs.Size:=0;