软件自定义卸载器(可结束进程、删除目录、文件、注册表键值) 软件自定义卸载器 (可结束进程、删除目录、文件、注册表键值) 本人随笔 软件自定义卸载器 (可结束进程、删除目录、文件、注册表键值、执行命令等)该程序能根据配置好的信息卸载指定的任何程序。如结束进程、删除目录/文件、删除 注册 表键值以及执行相应的命令。第一次运行该程序时会自动创建配置文件,用户只需填入相 本人随笔 软件自定义卸载器 (可结束进程、删除目录、文件、注册表键值、执行命令等)该程序能根据配置好的信息卸载指定的任何程序。如结束进程、删除目录/文件、删除注册表键值以及执行相应的命令。第一次运行该程序时会自动创建配置文件,用户只需填入相应信息即可正常使用。 如要删除 c:\program files 目录下的 sky808 文件夹,只需在[目录]字段添加: 1 = c:\program files\sky808 即可。序号可根据添加的条数类增。 程序代码: #NoTrayIcon Const $IniFile=StringTrimRight(@ScriptName,3)&"ini" If NOT FileExists($IniFile) Then _IniCreate() Local $ProcessSec=IniReadSection($IniFile,"进程") If Not @Error Then For $i=1 To $ProcessSec[0][0] ProcessClose($ProcessSec[$i][1]) Next EndIf Local $FolderSec=IniReadSection($IniFile,"目录") If Not @Error Then For $i=1 To $FolderSec[0][0] DirRemove($FolderSec[$i][1],1) Next EndIf Local $FileSec=IniReadSection($IniFile,"文件") If Not @Error Then For $i=1 To $FileSec[0][0] FileDelete($FileSec[$i][1]) Next EndIf Local $RegSec=IniReadSection($IniFile,"注册表") If Not @Error Then For $i=1 To $RegSec[0][0] RegDelete($RegSec[$i][1]) Next EndIf Local $CmdSec=IniReadSection($IniFile,"命令行") If Not @Error Then For $i=1 To $CmdSec[0][0] Run($CmdSec[$i][1],@ScriptDir,@SW_HIDE) Next EndIf MsgBox(64,"OK","Finish!") Func _IniCreate() Local $IniStr = _ "[进程]"&@CRLF& _ ";序号 = 结束进程名"&@CRLF&@CRLF& _ "[目录]"&@CRLF& _ 本文来源:https://www.wddqw.com/doc/c3437b4fb62acfc789eb172ded630b1c59ee9b85.html