Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как програмно открыть видео файл [D6, XP]

Андрей Воронин © (2010-05-28 09:07:00)
Здравствуйте! Подскажите пожалуйста, как программно открыть виндус медиа плеер и проиграть *.avi файл?

Плохиш (2010-05-28 10:10:00) [1]

> Медвежонок Пятачок © (28.05.10 10:04) [16]
>
> ну теперь точно помогут кодом

Уже помогали, не помогло. Пациент скорее мёртв, чем жив...

Медвежонок Пятачок (2010-05-28 10:04:00) [2]
ну теперь точно помогут кодом

Андрей Воронин (2010-05-28 10:01:00) [3]
Удалено модератором

Андрей Воронин (2010-05-28 09:59:00) [4]
Удалено модератором

Медвежонок Пятачок (2010-05-28 09:57:00) [5]
Если не пашет, то тебе надо к агроному.
делфимастер-то здесь причем?

Дед (2010-05-28 09:55:00) [6]
Удалено модератором

Андрей Воронин (2010-05-28 09:54:00) [7]
Удалено модератором

Андрей Воронин (2010-05-28 09:54:00) [8]
Удалено модератором

Дед (2010-05-28 09:50:00) [9]
Удалено модератором

Плохиш (2010-05-28 09:48:00) [10]

> Я пытаюсь открыть таким образом, почему не работает?

Тебе не повезло.

12 (2010-05-28 09:47:00) [11]
а что кажет
ShowMessage(PChar(ListBox1.Items[ListBox1.ItemIndex]+'.avi');

Андрей Воронин (2010-05-28 09:42:00) [12]
ShellExecute(Handle,'open',PChar(ListBox1.Items[ListBox1.ItemIndex]+'.avi'),nil,nil,0);
Я пытаюсь открыть таким образом, почему не работает? :(

12 (2010-05-28 09:32:00) [13]
uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var
Handle : thandle;
begin
ShellExecute(Handle,'open','C:\BAGMaps.html',nil,nil,0);
end;

Андрей Воронин (2010-05-28 09:26:00) [14]
А на небольшом примерчике можно? Я просто в этом не шибко силен, лабороторную надо сделать..

12 (2010-05-28 09:24:00) [15]
HWND
A handle to the owner window used for displaying a UI or error messages. This value can be NULL if the operation is not associated with a window.

Return Value
If the function succeeds, it returns a value greater than 32. If the function fails, it returns an error value that indicates the cause of the failure. The return value is cast as an HINSTANCE for backward compatibility with 16-bit Windows applications. It is not a true HINSTANCE, however. It can be cast only to an int and compared to either 32 or the following error codes below.

Андрей Воронин (2010-05-28 09:15:00) [16]
А что значит "h" и < 32?

12 (2010-05-28 09:12:00) [17]
if ShellExecute(h, 'open', 'readme.avi', nil, nil, SW_SHOW) < 32 then

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »