可以参考windowsmediaplayer的sdk,
我想主要是界面的问题,在vb下windowsmediaplayer控件有一个
uimode属性,设置uimode为none就只有个视频窗口,原来的任何按键都不会出现,
然后你自己它作控制按钮就可以了。不知道delphi里面有没有。
正在尝试更好的方法。
反编译windowsmediaplayer控件以后发现有如下代码。不知道有什么用。可能微对竞争对手作了手脚的
ForceRemove {22D6F312-B0F6-11D0-94AB-0080C74C7E95} = s 'Windows Media Player'
{
ProgID = s 'MediaPlayer.MediaPlayer.1'
VersionIndependentProgID = s 'MediaPlayer.MediaPlayer'
ForceRemove 'Programmable'
InprocServer32 = s '%MODULE%'
{
val ThreadingModel = s 'Apartment'
}
ForceRemove 'Control'
ForceRemove 'EnablePlugin'
{
'.mov'
'.qt'
'.aif'
'.aifc'
'.aiff'
'.ra'
'.ram'
'.rm'
'.rmm'
ForceRemove 'MIME'
{
'video/quicktime'
'audio/aiff'
'audio/x-aiff'
'audio/x-pn-realaudio'
}
}
ForceRemove 'ToolboxBitmap32' = s '%MODULE%, 1'
'MiscStatus' = s '0'
{
'1' = s '131473'
}
'TypeLib' = s '{22D6F304-B0F6-11D0-94AB-0080C74C7E95}'
'Version' = s '1.0'
}
}
NoRemove CLSID