图片压缩合成软件

.子程序 保存文件, 文本型, 公开, 与支持库通用对话框功能一样，成功返回一个通用对话框文件名，失败返回空。
.参数 易样式, 逻辑型, 可空, 是否使用易语言样式。可为空，默认不使用。
.参数 标题, 文本型, 可空, 仅适用于打开文件和保存文件对话框。
.参数 文件名, 文本型, 可空, 从本属性中读取的文件名包括驱动器符和全路径目录，同时本属性也用作初始对话框中的文件名编辑框。
.参数 过滤器, 文本型, 可空, 格式：“MP3文件(*.mp3)|*.mp3|媒体文件(*.mpg)|*.mpg”
.参数 初始目录, 文本型, 可空, 指定当打开对话框时所自动跳转到的目录。
.参数 默认文件后缀, 文本型, 可空, 指定当用户没有输入文件的后缀名称时所自动使用的文件后缀名称。
.局部变量 ofn, OPENFILENAME
.局部变量 bool, 逻辑型

ofn.结构大小 ＝ 76
ofn.窗口句柄 ＝ GetActiveWindow ()
ofn.文件标题 ＝ “Save a file”
ofn.过滤器 ＝ 子字节集替换 (到字节集 (过滤器), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }
ofn.文件名 ＝ 取空白字节集 (255)
lstrcpy_bin (ofn.文件名, 到字节集 (文件名) ＋ { 0, 0 })
ofn.初始目录 ＝ 初始目录
ofn.默认扩展名 ＝ 默认文件后缀
ofn.标题 ＝ 标题
ofn.文件名最大长度 ＝ 255
ofn.标志 ＝ 524288
.如果 (是否为空 (易样式) 或 易样式 ＝ 假)
bool ＝ GetSaveFileNameA (ofn)
.否则
bool ＝ GetSaveFileNamePreview (ofn)
.如果结束
返回 (选择 (bool, 到文本 (ofn.文件名), “”))

实例句柄 ＝ GetModuleHandle (0)
图标句柄 ＝ LoadIcon (实例句柄, 129)
InitCommonControls () ' 这个是初始化共用控件API,凡是用到月历框,选择夹,XP风格等等扩展组件的,都必须调用这个API
' 这里调用的是资源对话框模板来创建窗口,在易的调试模式下无效
DialogBoxParam (实例句柄, #IDD_对话框1, 0, &对话框窗体消息处理子程序, 0) ' 这个API内部有消息循环泵,直到对话框被关闭才返回