Нам понадобятся 2Button(Standart) OpenDialog(Dialogs) Label(Standart) Button1 Caption ставим "Найти файл" Button2 Caption ставим "Открыть файл" В var добавляем: HTMLFile : Array[0..79] of Char; Создаем обработчик событий OnClick в Button1, и туда пишем: If OpenDialog1.Execute then begin StrPCopy(HTMLFile, OpenDialog1.FileName); Button2.Enabled := True; label1.Caption:= OpenDialog1.FileName; end; Создаем обработчик событий OnClick в Button2, и туда пишем: ShellExecute(Handle, 'open', HTMLFile, nil, nil, SW_SHOWNORMAL); Этот пример будет открывать любые файлы, программой, которая стоит у вас по умолчанию для данного типа файла, причем для этого код менять не нужно.
