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

← →
Андрей Воронин (2010-05-28 09:07) [0]

Здравствуйте! Подскажите пожалуйста, как программно открыть виндус медиа плеер и проиграть *.avi файл?

← →
12 © (2010-05-28 09:12) [1]

if ShellExecute(h, "open", "readme.avi", nil, nil, SW_SHOW) < 32 then

← →
Андрей Воронин (2010-05-28 09:15) [2]

А что значит "h" и < 32?

← →
12 © (2010-05-28 09:24) [3]

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:26) [4]

А на небольшом примерчике можно? Я просто в этом не шибко силен, лабороторную надо сделать..

← →
12 © (2010-05-28 09:32) [5]

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:42) [6]

ShellExecute(Handle,"open",PChar(ListBox1.Items[ListBox1.ItemIndex]+".avi"),nil,nil,0);
Я пытаюсь открыть таким образом, почему не работает? :(

← →
12 © (2010-05-28 09:47) [7]

а что кажет
ShowMessage(PChar(ListBox1.Items[ListBox1.ItemIndex]+".avi");

← →
Плохиш © (2010-05-28 09:48) [8]

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

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

← →
Дед (2010-05-28 09:50) [9]

Удалено модератором

← →
Андрей Воронин (2010-05-28 09:54) [10]

Удалено модератором

← →
Андрей Воронин (2010-05-28 09:54) [11]

Удалено модератором

← →
Дед (2010-05-28 09:55) [12]

Удалено модератором

Если не пашет, то тебе надо к агроному.
делфимастер-то здесь причем?

← →
Андрей Воронин (2010-05-28 09:59) [14]

Удалено модератором

← →
Андрей Воронин (2010-05-28 10:01) [15]

Удалено модератором

ну теперь точно помогут кодом

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

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

Как програмно открыть видео файл Найти похожие ветки