Fehlermeldung bei Aufruf von WMP1:TWindowsMediaPlayer;

[Franziska_01]

ich habe es nun so gemacht:

unit Unit1;

interface

uses ... , WMPLib_TLB;

type
TForm1 = class(TForm)
.
.
private
{ Private-Deklarationen }

public
{ Public-Deklarationen }
wmp1: TWindowsMediaPlayer;

var
wmp1da : Boolean; // ist dll für wmp1 da?

procedure TForm1.FormCreate(Sender: TObject);
begin

wmp1da := true;
try
wmp1 := TWindowsMediaPlayer.Create(self);
wmp1.Parent := Self;
WMP1.Left := 416;
WMP1.Top := 336;
WMP1.Width := 361;
WMP1.Height := 129;
except
showmessage('wmp1da := false');
wmp1da := false;
end;

end;

end.


Vielen Dank nochmals für Eure Hilfe!!!

Grüße Franziska