[kiman.ru]

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

[DelphiM0ZG]

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

Код:

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, принимает строку - имя файла. А насчёт, как узнать расширение после его изменения, ничего сказать не могу.

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

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

Код:

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

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