开发一个方便修改文件名的小程序

近期看到刚毕业的师弟师妹们上传了毕业照，有的人把每张照片都修改了与照片内容相关的文件名，可见很怀念大学里的人。我想手动一张一张的修改照片太麻烦了，就用工作使用的Delphi写一个小程序，支持一边翻阅图片一边修改文件名，自己有用，或许别人也有用。

 

界面如下

简单说下功能：

1. 【选择文件】右边的小按钮点击后，弹出选择对话框选择要修改文件名的文件
2. 【拓展名】自动获取选择的文件的拓展名，不可修改
3. 【前缀】是要修改的新文件的前面部分，为了让新文件名支持多样化，将其分为了前缀、中缀、后缀和拓展名
4. 【后缀】新文件名的后面部分
5. 【拓展名】下面的文字是原文件名与新文件名的预览效果，比如前缀“哆啦A梦_”+后缀“微笑”+拓展名“.png”的效果如图
6. 右边的系统设置中可直接控制文件拓展名是否隐藏，如果是在win7或win8下使用，则需要刷新文件夹才能看到效果
7. 右上角的灰色文本框不可编辑，其作用是当修改出错时，这里显示错误信息，比如输入的新文件名已存在
8. 系统设置中的【隐藏文件拓展名】是为了方便点，不用在windows中设置，不过该程序在win7与win8下需要手动刷新文件夹才能看到效果
9. 【批量修改】勾选上，则其右边的数字可以编辑，其被修改的文件名是前缀+右边的数字+后缀+拓展名，其中第二个文件的数字是第一个数字+1
10. 【过滤文件】是为了在选择文件的时候，排除不同类型文件的影响，可以现在选择对话框中只显示已勾选的文件拓展名与右边自定义输入的拓展名

实现的技术很简单，逻辑也简单，主要是要控制好整个操作下来尽量少出错。主要就用了以下几个方法

1. 使用函数ExtractFileName获取原文件名
2. 使用函数ExtractFilePath获取文件路径
3. 使用过程RenameFile修改文件名称
4. 使用过程ShellExecute调用windows的API打开文件夹
5. 使用注册表的类TRegistry进行设置文件拓展名是否隐藏，路径HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt 值1隐藏，0不隐藏

源代码与可执行的小程序文件都上传到这里了 http://download.csdn.net/detail/jing5022/8765533