Как в Delphi открыть файл с расширением (.avi) [Версия для КПК]

Показать полную графическую версию : Как в Delphi открыть файл с расширением (.avi)

ufooo000

09-01-2019, 18:53

Подскажите как в Delphi можно открыть файл с расширением (.avi) если не знаем имя файла?

Так я открывал если знаю имя файла:
ShellExecute(0, 'open', 'Test.avi', nil, nil, SW_SHOW);

Iska

10-01-2019, 01:44

А что мы вообще знаем о файле?

ufooo000

10-01-2019, 10:04

А что мы вообще знаем о файле? »
Ничаго!
Любой файл с расширением (.avi).

Busla

10-01-2019, 11:11

как в Delphi можно открыть файл с расширением (.avi) если не знаем имя файла? »
узнать имя, а потом открыть ;-)

Iska

10-01-2019, 12:55

Ничаго! »
ufooo000, то есть, мы даже не знаем путь к каталогу, где он должен быть расположен?

ufooo000

10-01-2019, 13:04

путь к каталогу »
файл с расширением (.avi) будет рядом с исполняемым файлом.

Как то так...
Открыть любой файл с расширением (.avi) - несмотря на его названия.
Файл который откроет (.avi) файл будет находится рядом с ним.

Iska

10-01-2019, 13:21

Тогда — получаете абсолютный путь к исполняемому файлу приложения, берёте от него только путь к каталогу, делаете поиск файлов по маске *.avi, если файл найден — делаете ему ShellExecute().

ufooo000

10-01-2019, 13:31

делаете ему ShellExecute() »
Что поправить в строке...
ShellExecute(0, 'open', '*.avi', nil, nil, SW_SHOW);

Iska

10-01-2019, 13:57

Что поправить в строке... »
Вместо '*.avi' вставить полный путь к первому найденному *.avi файлу. Как искать — я написал выше. Пробуйте, это несложно.

ufooo000

10-01-2019, 14:02

Пробуйте, это несложно »
Через месяц может и не будет сложно, а пока...

Iska

10-01-2019, 18:05

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

opel431

10-01-2019, 18:38

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

var
FindFile: TSearchRec;

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

Iska

10-01-2019, 18:45

Поэтому, просто намек, »
Ничего себе намёк :lol:. Готовый код.

opel431

10-01-2019, 18:51

Ничего себе намёк . Готовый код. »
Да там еще нужно остановить поиск и получить имя файла в переменную. Пусть развивается...