搜了很多资料，琢磨半天，找到一个有效方法，记录下
点击uninstall.exe不生效，主要是因为没带参数
方法：生成一个快捷方式，添加命令
Shell.CreateShortcut("%AppFolder%", "卸载 NetManage.exe", "%AppFolder%\\uninstall.exe", "/U:.\\Uninstall\\uninstall.xml", "%AppFolder%", "%AppFolder%\\uninstall.exe", 0, SW_SHOWNORMAL, nil, "", START_OPTION_DEFAULT);
点击CreateShortcut是这样子的：
resultF = Folder.DoesExist(SessionVar.Expand("%AppFolder%"));
if (resultF) then
Folder.DeleteTree(SessionVar.Expand("%AppFolder%"),nil);
end
删除所有~