Inno Setup自定义卸载的文件名

[CODE]  
procedure CurStepChanged(CurStep: TSetupStep);  
var  
uninspath, uninsname, NewUninsName, MyAppName: string;  
begin  
if CurStep=ssDone then  
begin  
// 指定新的卸载文件名（不包含扩展名），请相应修改！  
NewUninsName := '卸载程序';  
// 应用程序名称，与 [SEUTP] 段的 AppName 必须一致，请相应修改！  
MyAppName := '卸载程序';  
// 以下重命名卸载文件  
uninspath:= ExtractFilePath(ExpandConstant('{uninstallexe}'));  
uninsname:= Copy(ExtractFileName(ExpandConstant('{uninstallexe}')),1,8);  
RenameFile(uninspath + uninsname + '.exe', uninspath + NewUninsName + '.exe');  
RenameFile(uninspath + uninsname + '.dat', uninspath + NewUninsName + '.dat');  
// 以下修改相应的注册表内容  
if RegKeyExists(HKEY_LOCAL_MACHINE, 'SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/' + MyAppName + '_is1') then  
begin  
RegWriteStringValue(HKEY_LOC