Как узнать можно ли открыть...

[Domovoy]

Как узнать можно ли открыть файл каким нибудь приложением. Я открываю файлы ShellExecute. Нужно знать можно или нет до использование ShellExecute. Заранее Спасибо!!!

[Sibedir]

function ExecutableApp (FileName: string): string;
var
  RES: array [0..255] of Char;
begin
  FindExecutable(PChar (FileName), '', RES);
  if RES[0] = #0 then Result := 'не найдено'
  else Result := StrPas(RES);
end;

Функция по имени файла дает имя, связанного с ним приложения.

[Domovoy]

Nice Спасибо!!!