delphi 制作播放器除了使用

Question

除了用mcisend...函数之外还有别的方法吗？

Answer 1

tmediaplayer 也是用mcisend...的啊

Answer 2

哦？是吗？我还不知道TMdediaPlayer用mcisend...的呢！

Answer 3

API 中mci...都是用在这方面
mciGetCreatorTask
mciGetDeviceID
mciGetErrorString
mciGetYieldProc
mciSendCommand
mciSendString
mciSetYieldProc

Answer 4

GetOpenFileNamePreview
GetSaveFileNamePreview
MCIWndCreate
MCIWndRegisterClass
MCIWndCanConfig
MCIWndCanEject
MCIWndCanPlay
MCIWndCanRecord
MCIWndCanSave
MCIWndCanWindow
MCIWndChangeStyles
MCIWndClose
MCIWndDestroy
MCIWndEject
MCIWndEnd
MCIWndGetActiveTimer
MCIWndGetAlias
MCIWndGetDest
MCIWndGetDevice
MCIWndGetDeviceID
MCIWndGetEnd
MCIWndGetError
MCIWndGetFileName
MCIWndGetInactiveTimer
MCIWndGetLength
MCIWndGetMode
MCIWndGetPalette
MCIWndGetPosition
MCIWndGetPositionString
MCIWndGetRepeat
MCIWndGetSource
MCIWndGetSpeed
MCIWndGetStart
MCIWndGetStyles
MCIWndGetTimeFormat
MCIWndGetVolume
MCIWndGetZoom
MCIWndHome
MCIWndNew
MCIWndOpen
MCIWndOpenDialog
MCIWndOpenInterface
MCIWndPause
MCIWndPlay
MCIWndPlayFrom
MCIWndPlayFromTo
MCIWndPlayReverse
MCIWndPlayTo
MCIWndPutDest
MCIWndPutSource
MCIWndRealize
MCIWndRecord
MCIWndResume
MCIWndReturnString
MCIWndSave
MCIWndSaveDialog
MCIWndSeek
MCIWndSendString
MCIWndSetActiveTimer
MCIWndSetInactiveTimer
MCIWndSetOwner
MCIWndSetPalette
MCIWndSetRepeat
MCIWndSetSpeed
MCIWndSetTimeFormat
MCIWndSetTimers
MCIWndSetVolume
MCIWndSetZoom
MCIWndStep
MCIWndStop
MCIWndUseFrames
MCIWndUseTime
MCIWndValidateMedia

Answer 5

用tmedeiaplayer 只能打开一次
当windows mediaplayer打开时还不能用自己写的程序
当然我选择的是不共享设备的
如果共享设备的话，运行时系统提示未注册控件，
只有devicetype 为dtcdaudio的行