Любой язык - Как в Delphi открыть файл с расширением (.avi)

[ufooo000]

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:



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

Любой язык - Как в Delphi открыть файл с расширением (.avi)

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

[opel431]

Цитата Iska:



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

Любой язык - Как в Delphi открыть файл с расширением (.avi)

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