[_Антон_]

Доброго времени суток!

Столкнулся с проблемой при удалении файла с помощью DeleteFile.
В одной папке лежат 2 файла с разными расширениями, причем первый файл удаляется нормально, как и должно быть:

Код:

if FileExists (katalog + '\out\F.u'+IntToStr(i1)) then
  DeleteFile(katalog + '\out\F.u'+IntToStr(i1));

Но второй файл, падла, почему-то не удаляется, делаю точно также:

Код:

      
if FileExists (katalog + '\out\F.p'+IntToStr(i1)) then
  if DeleteFile(katalog + '\out\F.p'+IntToStr(i1)) then
    showmessage ('Удален!');

подскажите пожалуйста в чем проблема, я уже голову себе сломал(

[einstein]

причин может быть много: файл открыт в другой программе, нет прав на файл...

[Assistant]

а в ручную он удаляется?

[_Антон_]

Спасибо! решил проблему Оказывается этот файл действительно был открыт до удаления)

Извиняюсь за глупый вопрос.