[serbius]

Здравствуйте!
Имею:
100+ файлов разных форматов (rtf, docx, doc).
Задача: открыть каждый программой и, если это rtf или docx, то сохранить под новым форматом doc, так же при открытии проверять: поврежден ли данный файл, есть ли у него пароль, если все ок, то складываю в папку "конверт", если битый, то в "битые".

Вопрос: как узнать, имеет ли файл пароль, т.к. try, except этого не ловит, а из 100 файлов может быть 1 с паролем и остановит весь процесс, пока сам не подойдешь и не нажмешь отмену в открывшемся диалоговом окне, только так процесс пойдет дальше.

Кусок кода:

Код:

Word := CreateOleObject('Word.Application');
    Word.Visible := false;
    Word.DisplayAlerts:=wdAlertsAll;
    Word.DisplayAlerts:=false;
    try
      Word.Documents.Open(Edit1.text+'\'+TList[i], Readonly:=true, PasswordDocument:='111');
    except
      if (Edit1.text+'\'+TList[i] <> '') and (FileExists(Edit1.text+'\'+TList[i])) then begin
        mf := Edit3.text+'\'+ExtractFileName(Edit1.text+'\'+TList[i]);
        MoveFile(PChar(Edit1.text+'\'+TList[i]),PChar(mf));
      end;

      Word.Quit;
      Word:=UnAssigned;
      open_word := false;
    end;

Очень, очень надо, т.к. это последний нерешенный вопрос.

Огромное спасибо.

[Pyro]

я бы от лени поставил другую прогу, чтобы Esc нажимала в таймере

[serbius]

Пошел по другому пути, использовал команду перед Open():
Word.Options.ConfirmConversions := false;

Пока все ок.

Спасибо за овтет.