[Iska]

ufooo000, ну, коль Вы берётесь за ЯВУ, значит, это ведь не просто так, а для того, чтобы научиться им пользоваться, так?

[opel431]

Самое интересное в программировании, это поиск решения задачи. Поэтому, просто намек, - как-то так...

Код:

var
 FindFile: TSearchRec;

   if FindFirst(ExtractFilePath(Application.ExeName) + '\*.avi', faAnyFile, FindFile)=0 then
     if FileExists(...) then
       ShellExecute(...)
     else
       MessageBox(Handle, 'Облом...', 'Error', MB_ICONERROR);

[Iska]

Поэтому, просто намек, »

Ничего себе намёк . Готовый код.

[opel431]

Ничего себе намёк . Готовый код. »

Да там еще нужно остановить поиск и получить имя файла в переменную. Пусть развивается...