[kiman.ru]

Версию Microsoft Word, установленную на компьютере, я знаю. А как узнать версию документа *.doc, *.docx перед открытием? Нужно избежать ошибок при открытии документов. Как это сделать? Что если человек взялфайл другого формата (например, изменил расширение Image.BMP на Image.DOC ) и пытается его открыть?

[DelphiM0ZG]

Для открытия файлов подходит функция ShellExecute модуля ShellAPI. Я открывал документы таким способом:

Код:

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); begin   If Not(OpenDialog.Execute) Then Exit;   ShellExecute(Application.MainForm.Handle, PChar('open'), PChar(OpenDialog.FileName),     Nil, PChar(ExtractFilePath(OpenDialog.FileName)), SW_ShowNormal); end;

Функция ShellExecute использует, в данном случае, ту программу, которая открывает файлы данного типа по умолчанию. Если нужно узнать расширение файла, то функция: ExtractFileExt, принимает строку - имя файла. А насчёт, как узнать расширение после его изменения, ничего сказать не могу.

[Страдалецъ]

Я бы несколько изменил предложенный код:

Код:

1 2 3

if ShellExecute(Application.MainForm.Handle, PChar('open'), PChar(OpenDialog.FileName),     Nil, PChar(ExtractFilePath(OpenDialog.FileName)), SW_ShowNormal) < 32 then ShowMessage('Ничего не понимаю!');

А расширение проверять тут как-раз бессмысленно. Пускай само запускаемое приложение решит, правильный это файл для него или не очень.