[delphi] problem z otwieranie filmow

0

witam wszystkich!mam maly problem. moze mi ktos powie o co tu chodzi?
czemu sie wyswietla bląd?

project player.exe raised exception class EMCIDeviceError with 'MMSystem274 Używane urządzenie MCI nie obsługuje wydanego polecenia.'.Process stopped.

o oto ten kodzik:

try

if Open.Execute then

FName := Open.FileName;  

Player.FileName := FName;  
Player.Open;

Player.Display := PP; 

Player.DisplayRect := PP.ClientRect;

Scroll.Position := 0; 

Tx := ExtractFileName(Player.FileName); 

ShowText(Tx);
Caption := Tx;

 except

on EMCIDeviceError do
raise Exception.Create(Format(
'Nie mogę otworzyć pliku o rozszerzeniu %s. Sprawdź czy plik nie '+
'jest uszkodzony lub czy prawidłowy jest jego format danych.',
[ExtractFileExt(Player.FileName)]));
end;

--if label1.caption = www.programowanie.of.pl then you win!

0

looknij do źródeł na tej stronie! Nie bede robił tego za ciebie!--------------------------------------------------------------------------
Pozdrawiam
Sebek, Seboo lub jak tam kto woli :D
[email protected]

0

if opendialog1.execute then
begin
mediaplayer1.FileName := opendialog1.filename;
mediaplayer1.Open;
mediaplayer1.play;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1