图片批量转换器，支持搜索全盘替换

Clsid ＝ 取空白字节集 (16)
CLSIDFromString (A2W (pStr), Clsid) ' 获取图像格式对应的Clsid
GdipLoadImageFromFile (A2W (源文件), Image) ' 加载图像
ret ＝ GdipSaveImageToFile (Image, A2W (目标文件), Clsid, 0) ' 保存转换的图像。第四个参数可对图像质量等信息操作，若该参数为0，则使用默认解码器参数。
GdipDisposeImage (Image) ' 销毁图像，释放资源

.如果 (单选框6.选中 ＝ 真)
.如果真 (编辑框_源文件.内容 ＝ “” 或 编辑框_目标路径.内容 ＝ “” 或 编辑框_文件名.内容 ＝ “”)
信息框 (“输入的信息不全，请输入所有信息”, 0 ＋ #信息图标, )
返回 ()
.如果真结束
.如果 (转换图像格式 (编辑框_源文件.内容, 编辑框_目标路径.内容 ＋ 编辑框_文件名.内容 ＋ 标签_扩展名.标题, ImageFormat))
信息框 (“文件已成功保存到” ＋ 编辑框_目标路径.内容 ＋ 编辑框_文件名.内容 ＋ 标签_扩展名.标题, 0, “转换成功！”)
.否则
信息框 (“转换失败！”, 0, “转换失败！”)
.如果结束

.否则
文件夹转换 ()
mm ＝ 0
状态条1.置文本 (0, “转换完毕”)