图片快速转换格式工具

GdipLoadImageFromFile (A2W (图片 [i]), Image)
.如果真 (GetEncoderClsid (多项选择 (组合框1.现行选中项 ＋ 1, “image/bmp”, “image/jpeg”, “image/gif”, “image/tiff”, “image/png”), Clsid) ≠ -1)
GdipSaveImageToFile (Image, A2W (图片 [i] ＋ 多项选择 (组合框1.现行选中项 ＋ 1, “.bmp”, “.jpg”, “.gif”, “.tif”, “.png”)), Clsid, 0)
.如果真结束
GdipDisposeImage (Image)
标签1.调用反馈事件 (, , )

图片 ＝ 多文件对话框 (“选择图片”, “图片|*.bmp;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png”, , “%USERPROFILE%\desktop”, )
.如果真 (取数组成员数 (图片) ≠ 0)
标签1.标题 ＝ “待转换:”
.计次循环首 (取数组成员数 (图片), i)
标签1.标题 ＝ 标签1.标题 ＋ FileName (图片 [i]) ＋ “;”
.计次循环尾 ()