Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
Я бы несколько изменил предложенный код:
Код:
if ShellExecute(Application.MainForm.Handle, PChar('open'), PChar(OpenDialog.FileName),
Nil, PChar(ExtractFilePath(OpenDialog.FileName)), SW_ShowNormal) < 32
then ShowMessage('Ничего не понимаю!');
А расширение проверять тут как-раз бессмысленно. Пускай само запускаемое приложение решит, правильный это файл для него или не очень.
Последний раз редактировалось Страдалецъ, 24.11.2011 в 16:54.
24.11.2011, 16:51
Древовидный вид