Как в Delphi открыть файл с расширением (.avi)
Подскажите как в Delphi можно открыть файл с расширением (.avi) если не знаем имя файла?
Так я открывал если знаю имя файла:
Код:
ShellExecute(0, 'open', 'Test.avi', nil, nil, SW_SHOW);
|
А что мы вообще знаем о файле?
|
Цитата:
Цитата Iska
А что мы вообще знаем о файле? »
|
Ничаго!
Любой файл с расширением (.avi). |
Цитата:
Цитата ufooo000
как в Delphi можно открыть файл с расширением (.avi) если не знаем имя файла? »
|
узнать имя, а потом открыть ;-) |
ufooo000, то есть, мы даже не знаем путь к каталогу, где он должен быть расположен?
|
файл с расширением (.avi) будет рядом с исполняемым файлом.
Как то так...
Открыть любой файл с расширением (.avi) - несмотря на его названия.
Файл который откроет (.avi) файл будет находится рядом с ним. |
Тогда — получаете абсолютный путь к исполняемому файлу приложения, берёте от него только путь к каталогу, делаете поиск файлов по маске *.avi, если файл найден — делаете ему ShellExecute().
|
Цитата:
Цитата Iska
делаете ему ShellExecute() »
|
Что поправить в строке...
Код:
ShellExecute(0, 'open', '*.avi', nil, nil, SW_SHOW);
|
Цитата:
Цитата ufooo000
Что поправить в строке... »
|
Вместо '*.avi' вставить полный путь к первому найденному *.avi файлу. Как искать — я написал выше. Пробуйте, это несложно. |
Через месяц может и не будет сложно, а пока... |
ufooo000, ну, коль Вы берётесь за ЯВУ, значит, это ведь не просто так, а для того, чтобы научиться им пользоваться, так?
|
Самое интересное в программировании, это поиск решения задачи. Поэтому, просто намек, - как-то так...
Код:
var
FindFile: TSearchRec;
if FindFirst(ExtractFilePath(Application.ExeName) + '\*.avi', faAnyFile, FindFile)=0 then
if FileExists(...) then
ShellExecute(...)
else
MessageBox(Handle, 'Облом...', 'Error', MB_ICONERROR);
|
Ничего себе намёк :lol:. Готовый код.
|
Цитата:
Цитата Iska
Ничего себе намёк . Готовый код. »
|
Да там еще нужно остановить поиск и получить имя файла в переменную. Пусть развивается... |
Время: 09:55.
© OSzone.net 2001-
