有谁用过windows media player 9(wmp.dll)控件编程(50分)

用windows media player 9(wmp.dll)控件编程，视频窗口老不随form大小改变，
把stretchtofit设为True也不行，哪位大虾能帮我，分全送上。

难道没有人知道吗？

uses ComObj, ActiveX;
//常量和变量声明及单元引用声明
var MediaPlayer, Part: Variant;
//声明为OLE Automation 对象
Filename : String;
//Filename用于存放要保存的文件的名称
const
CLSID_DelphiFormViewerContextMenu: TGUID =
'{22D6F312-B0F6-11D0-94AB-0080C74C7E95}';
function GetOLeCreateObject (const ClassName: string): IDispatch;
var //根据Windows Media Player的运行情况创建获取对象
ClassID: TGUID;
Unknown: IUnknown;
begin

ClassID := ProgIDToClassID (ClassName);
if Succeeded (GetActiveObject (ClassID, nil, Unknown)) then

OleCheck (Unknown.QueryInterface (IDispatch, Result))
else

Result := CreateOleObject (ClassName);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin

MediaPlayer := GetOLeCreateObject ('WMPlayer.Application');

MediaPlayer.Visible := True;

end;


。。。。。。

to 原野飞侠：
没看懂你的程序。我是通过compnemnts-->imports activex controls 导入wmp.dll
文件，然后在使用；

to 原野飞侠：
而且 ClassID := ProgIDToClassID (ClassName);这一句报“无效的类别识别串的错”

难道真的没有人知道吗

关注！
另有问题急待解决
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1894259

高度关注，我也碰到类似的情况。

把它的视瓶显示控件的aling=allient