CorelDRAW 一键卸载所有版本

wangsr

简单的说就是，原系统内已安装过CDR，又要安装不同的版本，可是怎么也安装不上去，这时可用这个小软件把已安装的全删掉重新从头安装。

zjw9876543210

只能等到重装系统之前来测试下.

baruny

希望没有机会用到

潇洒人生

直接发上删CDR批代码给大家，用记事本保存为BAT就可以，慎用，直译出来的        



  ::---------------------------------------------------------- 卸载 ----------------------------------------------------------:: :Uninst CLS & COLOR 4F TITLE CorelDRAW Graphics Suite X8.1 X64 Uninstall [%~nx0] IF DEFINED OnConfig (     ECHO. & ECHO 卸载会删除公用文件，可能会影响其他软件的运行！！！     ECHO. & ECHO 退出请点击窗口右上角的[X]，     ECHO. & ECHO 继续请按任意键... ) ELSE (     ECHO. & ECHO 卸载会保留公用文件，不影响其他软件运行，     ECHO. & ECHO 准备就绪，按任意键继续... ) PAUSE>nul  TASKKILL.exe /f /im "VideoBrowser.exe" >nul 2>nul TASKKILL.exe /f /im "rintWiz.exe" >nul 2>nul TASKKILL.exe /f /im "CorelDRW.exe" >nul 2>nul TASKKILL.exe /f /im "CorelPP.exe" >nul 2>nul TASKKILL.exe /f /im "Connect.exe" >nul 2>nul TASKKILL.exe /f /im "BarCode.exe" >nul 2>nul TASKKILL.exe /f /im "DIM.exe" >nul 2>nul  IF EXIST "%RegPATH%\" RD /s /q "%RegPATH%" 7za.exe e -y "%DataPATH%\Reg.7z" -o"%RegPATH%" Uninst*.reg -x!Inst*.reg FOR %%i in ("%RegPATH%\Uninst*.reg") DO (REGEDIT.exe /s "%%i") IF EXIST "%RegPATH%\" RD /s /q "%RegPATH%"  IF DEFINED OnConfig (     IF EXIST "%ProgramFiles%\Corel\" RD /s /q "%ProgramFiles%\Corel"     IF EXIST "%ProgramFiles(X86)%\Gs\" RD /s /q "%ProgramFiles(X86)%\Gs"     IF EXIST "%ProgramFiles(X86)%\Corel\" RD /s /q "%ProgramFiles(X86)%\Corel"     IF EXIST "%CommonProgramFiles%\Corel\" RD /s /q "%CommonProgramFiles%\Corel"     IF EXIST "%CommonProgramFiles(X86)%\Corel\" RD /s /q "%CommonProgramFiles(X86)%\Corel"     REG.exe delete "HKLM\software\Corel\CorelDRAW" >nul 2>nul     REG.exe delete "HKLM\software\Corel" >nul 2>nul     REG.exe delete "HKCU\software\Corel" >nul 2>nul )  CALL :Clean CALL :iconRefresh CLS & ECHO. & ECHO 卸载完成，按任意键退出... PAUSE>nul Exit ::--------------------------------------------------------------------------------------------------------------------------::  ::----------------------------------------------------- 清理用户文件夹 -----------------------------------------------------:: :Clean DEL /f /q "%UserProfile%\Desktop\CorelDRAW X8.lnk" >nul 2>&1 RD /s /q "%AllUsersProfile%\Microsoft\Windows\Start Menu\Programs\CorelDRAW Graphics Suite X8" >nul 2>&1 IF EXIST "%Appdata%\Corel\CorelDRAW Graphics Suite X8\" RD /s /q "%Appdata%\Corel\CorelDRAW Graphics Suite X8" IF DEFINED OnConfig (     IF EXIST "%AllUsersProfile%\Corel\" RD /s /q "%AllUsersProfile%\Corel"     IF EXIST "%Appdata%\Corel\" RD /s /q "%Appdata%\Corel" ) goto :eof ::--------------------------------------------------------------------------------------------------------------------------::  ::-------------------------------------------------------- 刷新图标 --------------------------------------------------------:: :iconRefresh ECHO [Version]>"%Temp%\iconRefresh.inf" ECHO Signature="$CHICAGO$">>"%Temp%\iconRefresh.inf" ECHO [DefaultInstall]>>"%Temp%\iconRefresh.inf" ECHO AddReg=AddReg>>"%Temp%\iconRefresh.inf" ECHO [AddReg]>>"%Temp%\iconRefresh.inf" %SystemRoot%\System32\InfDefaultInstall.exe "%Temp%\iconRefresh.inf" DEL /f /q "%Temp%\iconRefresh.inf" goto :eof ::--------------------------------------------------------------------------------------------------------------------------::   ::------------------------------------------------------- 倒计时退出 -------------------------------------------------------:: :End IF /i "%1" EQU "Silent" Exit msg %username% /time:6 CorelDRAW X8.1 安装完成，点击确定按钮或者等待 6 秒钟自动结束！ Exit  :Timeout FOR /l %%t in (6,-1,0) DO (     CLS & ECHO. & ECHO  已经安装完成，     ECHO. & ECHO  %%t 秒后退出...     CHOICE.exe /t 1 /d y /n >nul ) Exit   ::----------------------------------------------- 检测系统安装语言/UI首选语言 ----------------------------------------------:: angDetect ::检测系统UI语言（首选语言） FOR /f "skip=2 tokens=3" %%i in ('REG.exe query "HKCU\Control Panel\Desktop" /v "referredUILanguages" 2^>nul') do (     IF "%%i"=="en-US" (SET "LangID=1033" & SET "Lang=%%i" & SET "Lang2=en_US")     IF "%%i"=="zh-CN" (SET "LangID=2052" & SET "Lang=%%i" & SET "Lang2=zh_CN") ) ::检测系统安装语言 IF NOT DEFINED LangID (     FOR /f "skip=2 tokens=3" %%i in ('REG.exe query "HKLM\SYSTEM\CurrentControlSet\Control\Nls\Language" /v "InstallLanguage" 2^>nul') DO (         IF "%%i"=="0409" (SET "LangID=1033" & SET "Lang=en-US" & SET "Lang2=en_US")         IF "%%i"=="0804" (SET "LangID=2052" & SET "Lang=zh-CN" & SET "Lang2=zh_CN")     ) ) IF NOT DEFINED LangID (SET "LangID=1033" & SET "Lang=en-US" & SET "Lang2=en_US") goto :eof ::--------------------------------------------------------------------------------------------------------------------------::  ::------------------------------------------------- 检测是否已经安装本软件 -------------------------------------------------:: :OnCheck CLS & ECHO. REG.exe query "%Av%\18.0" /v "InstMe">nul 2>nul && (     SET "InstMe=#"     FOR /l %%t in (6,-1,0) DO (         CLS & COLOR 3F & ECHO.         ECHO 系统已经安装有本版软件，         ECHO 请按任意字母键继续安装，         ECHO. & ECHO  %%t 秒后进入选项菜单...         CHOICE.exe /C ABCDEFGHIJKLMNOPQRSTUVWXYZ1 /t 1 /d 1 >nul || IF NOT ERRORLEVEL 27 goto :eof     )     goto :Config )  REG.exe query "%Av%">nul 2>nul && (     CLS & COLOR 4F     ECHO. & ECHO 系统中存在CorelDRAW，继续安     ECHO. & ECHO 装可能会产生无法预知的问题！     ECHO. & ECHO 退出请点击窗口右上角的[X]，     ECHO. & ECHO 继续请按任意键...     PAUSE>nul & goto :eof )  goto :eof ::--------------------------------------------------------------------------------------------------------------------------::

東咩

一般来说  只要安装完整包  是原版系统   用正常的卸载都能解决了 当然了不排除有的喜欢折腾软件和插件