简化版的Aplayer播放器

hxq2015

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
播放进度	逻辑型
路径	文本型	1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			启动线程

aplayer ＝ 创建播放器窗口 (_启动窗口.取窗口句柄 (), 0, 0, _启动窗口.取用户区宽度 (), _启动窗口.取用户区高度 () － 进度条.高度, 0, 0, 0, 0, 0, 0, 0, 0)
文件关联 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), “MP4|MKV|AVI|WMV|ISO|RMVB|FLV|TS|M4V|RM|VOB|MOV”, “VIPaplayer播放器.exe”, 真)
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())
取命令行 (路径)
判断 (取数组成员数 (路径) ＞ 0)
媒体打开 (aplayer, 到文本 (路径 [1]))

子程序名	返回值类型	公开	备 注
文件关联
参数名	类 型	参考	可空	数组	备 注
关联应用程序	文本型				当双击对应的文件时就运行该应用程序打开
关联文件类型	文本型				欲关联的文件类型，如“mp3”
关联文件图标	文本型				ICQ文件路径或EXE文件路径，注销后才有效
设置默认	逻辑型				是否设为默认

如果真 (设置默认)
删除注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\OpenWithList”)
删除注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\OpenWithProgids”)
删除注册项 ( #现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\”)
写注册项 ( #根类, “.” ＋ 关联文件类型 ＋ “\”, 关联文件类型 ＋ “file”)
写注册项 ( #根类, 关联文件类型 ＋ “file\”, 关联文件类型)
写注册项 ( #根类, 关联文件类型 ＋ “file\DefaultIcon\”, 关联文件图标 ＋ “,0”)
写注册项 ( #根类, 关联文件类型 ＋ “file\shell\open\command\”, 关联应用程序 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号 )

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

改变窗口大小 (调整窗口 (aplayer), 0, 0, _启动窗口.取用户区宽度 (), _启动窗口.取用户区高度 () － 进度条.高度, 假)
进度条.移动 (0, _启动窗口.取用户区高度 () － 15, _启动窗口.宽度 － 按钮2.宽度 － 30, )
按钮2.移动 (_启动窗口.宽度 － 按钮2.宽度 － 15, _启动窗口.取用户区高度 () － 16, , )

子程序名	返回值类型	公开	备 注
_打开本地_被选择			窗口标题显示内容

通用对话框.打开 ()
媒体打开 (aplayer, 通用对话框.文件名)

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

变量名	类 型	静态	数组	备 注
播放时间秒	整数型			多功能条随播放进度运行

播放时间秒 ＝ 取播放位置 (aplayer)
进度条.最大位置 ＝ 取媒体总时长 (aplayer)
如果真 (播放时间秒 ≠ 进度条.位置)
播放进度 ＝ 真
进度条.位置 ＝ 播放时间秒
播放进度 ＝ 假

子程序名	返回值类型	公开	备 注
_进度条_位置被改变			多功能条控制进度

如果真 (播放进度 ＝ 假)
置播放位置 (aplayer, 进度条.位置)
如果真 (取媒体总时长 (aplayer) ＝ 0)
进度条.位置 ＝ 0

子程序名	返回值类型	公开	备 注
_在线url_被选择

变量名	类 型	静态	数组	备 注
url	文本型

如果真 (输入框 (“输入视频流网络地址”, , , url, , ))
媒体打开 (aplayer, url)

子程序名	返回值类型	公开	备 注
_暂停_被选择

媒体暂停 (aplayer)

子程序名	返回值类型	公开	备 注
_播放_被选择

继续播放 (aplayer)

子程序名	返回值类型	公开	备 注
_停止_被选择

媒体关闭 (aplayer)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

弹出菜单 (菜单, , )

子程序名	返回值类型	公开	备 注
_拖放对象1_得到文件
参数名	类 型	参考	可空	数组	备 注
接收到的文件路径	文本型

媒体打开 (aplayer, 接收到的文件路径)

i支持库列表	支持库注释
iext6	扩展界面支持库六
edroptarget	拖放支持库

.版本 2<br /> .支持库 iext6<br /> .支持库 edroptarget<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 播放进度, 逻辑型<br /> .程序集变量 路径, 文本型, , "1"<br /> <br /> .子程序 __启动窗口_创建完毕, , , 启动线程<br /> <br /> aplayer ＝ 创建播放器窗口 (_启动窗口.取窗口句柄 (), 0, 0, _启动窗口.取用户区宽度 (), _启动窗口.取用户区高度 () － 进度条.高度, 0, 0, 0, 0, 0, 0, 0, 0)<br /> 文件关联 (取运行目录 () ＋ “\” ＋ 取执行文件名 (), “MP4|MKV|AVI|WMV|ISO|RMVB|FLV|TS|M4V|RM|VOB|MOV”, “VIPaplayer播放器.exe”, 真)<br /> 拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())<br /> 取命令行 (路径)<br /> .判断开始 (取数组成员数 (路径) ＞ 0)<br />     媒体打开 (aplayer, 到文本 (路径 [1]))<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> <br /> .子程序 文件关联<br /> .参数 关联应用程序, 文本型, , 当双击对应的文件时就运行该应用程序打开<br /> .参数 关联文件类型, 文本型, , 欲关联的文件类型，如“mp3”<br /> .参数 关联文件图标, 文本型, , ICQ文件路径或EXE文件路径，注销后才有效<br /> .参数 设置默认, 逻辑型, , 是否设为默认<br /> <br /> .如果真 (设置默认)<br />     删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\OpenWithList”)<br />     删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\OpenWithProgids”)<br />     删除注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.” ＋ 关联文件类型 ＋ “\”)<br /> .如果真结束<br /> 写注册项 (#根类, “.” ＋ 关联文件类型 ＋ “\”, 关联文件类型 ＋ “file”)<br /> 写注册项 (#根类, 关联文件类型 ＋ “file\”, 关联文件类型)<br /> 写注册项 (#根类, 关联文件类型 ＋ “file\DefaultIcon\”, 关联文件图标 ＋ “,0”)<br /> 写注册项 (#根类, 关联文件类型 ＋ “file\shell\open\command\”, 关联应用程序 ＋ “ ” ＋ #引号 ＋ “%1” ＋ #引号)<br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> <br /> 改变窗口大小 (调整窗口 (aplayer), 0, 0, _启动窗口.取用户区宽度 (), _启动窗口.取用户区高度 () － 进度条.高度, 假)<br /> 进度条.移动 (0, _启动窗口.取用户区高度 () － 15, _启动窗口.宽度 － 按钮2.宽度 － 30, )<br /> 按钮2.移动 (_启动窗口.宽度 － 按钮2.宽度 － 15, _启动窗口.取用户区高度 () － 16, , )<br /> <br /> .子程序 _打开本地_被选择, , , 窗口标题显示内容<br /> <br /> 通用对话框.打开 ()<br /> 媒体打开 (aplayer, 通用对话框.文件名)<br /> <br /> .子程序 _时钟1_周期事件<br /> .局部变量 播放时间秒, 整数型, , , 多功能条随播放进度运行<br /> <br /> 播放时间秒 ＝ 取播放位置 (aplayer)<br /> 进度条.最大位置 ＝ 取媒体总时长 (aplayer)<br /> .如果真 (播放时间秒 ≠ 进度条.位置)<br />     播放进度 ＝ 真<br />     进度条.位置 ＝ 播放时间秒<br />     播放进度 ＝ 假<br /> .如果真结束<br /> <br /> <br /> .子程序 _进度条_位置被改变, , , 多功能条控制进度<br /> <br /> .如果真 (播放进度 ＝ 假)<br />     置播放位置 (aplayer, 进度条.位置)<br />     .如果真 (取媒体总时长 (aplayer) ＝ 0)<br />         进度条.位置 ＝ 0<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _在线url_被选择<br /> .局部变量 url, 文本型<br /> <br /> .如果真 (输入框 (“输入视频流网络地址”, , , url, , ))<br />     媒体打开 (aplayer, url)<br /> .如果真结束<br /> <br /> <br /> .子程序 _暂停_被选择<br /> <br /> 媒体暂停 (aplayer)<br /> <br /> .子程序 _播放_被选择<br /> <br /> 继续播放 (aplayer)<br /> <br /> .子程序 _停止_被选择<br /> <br /> 媒体关闭 (aplayer)<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 弹出菜单 (菜单, , )<br /> <br /> <br /> <br /> .子程序 _拖放对象1_得到文件<br /> .参数 接收到的文件路径, 文本型<br /> <br /> 媒体打开 (aplayer, 接收到的文件路径)

hlswuwu

附件呢，大佬

umf43

看看 谢谢分享

sonata0101

学习一下

lyjzyq

666666666666666

金叶

谢谢!!!!!!!!!!!!!!!!!!!!!!!

g5g5

谢谢!!!!!!!!!!!!!!!!!!!!!!!

yuzhong

111111111111111111111111111

wfkuku

看看 谢谢分享

meiqingbo

看看 谢谢分享