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