Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Вниз

Как запустить видео файлы программно 


JibSkeart   (2002-04-11 16:13) [0]

Есть два видео формата, проще сказать DV500,DC30
но суть не в этом мне нужно сделать как бы плей лист в этом тоже нет проблем
но я знаю где лежат файлы и мне нужно восроизвести их по порядку
тоесть сделать так же как и при двойном клике на этот файл
(просто хочется набить список и смотреть все подряд неотвлекаясь)
Какими функциями хотя бы пользоватся и как будет лутьше
Думаю изложил более менее понятно...

Заранее благодарю



AFROLOV   (2002-04-11 16:24) [1]

Проиграть файл можно с помощью ShellExecute(0,"open",...)
при этом будет запущена программа ассоциированная с данным типом файлов.
Или почитай справку по MCI(ключевые слова: MCI_DEVTYPE_DIGITAL_VIDEO, MCI_OPEN, MCI_PLAY, mciSendCommand, mciSendString)



JibSkeart   (2002-04-11 18:30) [2]

А примерчик ??
так как немогу найти к ShellExecute
сопостовимые Unit-ы и комоненты !



VID   (2002-04-11 19:00) [3]

...
USES SHELLAPI;
...


Procedure RunFile(FileName:String);
begin
ShellExecute(0,nil,pchar(filename),nil,pchar(extractfilepath(filename)),sw_normal);
end;



JibSkeart   (2002-04-11 19:26) [4]

Благодарствую !




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.021 c
14-81042          vopros                2002-03-19 16:43  2002.04.25  
Предлагаю злых нечеловеков исключать отсюда


7-81090           Hel                   2002-01-30 15:20  2002.04.25  
Регистрация библиотеки программным путем?


1-80858           G-ray                 2002-04-13 14:57  2002.04.25  
Несколько нажатых клавишь.


3-80748           B_A_V                 2002-04-04 08:06  2002.04.25  
тип datetime


14-81071          Алексей Петров        2002-03-18 16:54  2002.04.25  
Периодически пролетает