MMBuilder28Recent CleanerPage 1Y}List?"ArialListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gid Get_File_Name?Any comments here Arial c nul_str$ = ''c6new_file = StrToFile(c:\List.txt,nul_str$,FALSE,FALSE)cNol=NOL(c:\run.txt)csourc$ = '|--------->'fi=1Nolc!From$=StrFromFile(c:\run.txt,i,1)cPos=POS(sourc$,From$)cLen=LEN(From$)cDel$=StrDel(From$,Pos,Len)cAstr$ = From$ + Del$c(To=StrToFile(c:\List.txt,Del$,TRUE,TRUE)gid% Delete_ItemDELETE?Any comments here Arial5dDel_Type$ = 'Wmplayer' cpcmd$ = 'HIDE,WAIT /C Reg Delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run" /v "' + ArrayItem$ + '" /F'cmd.execmd$*******dCBK_ReturnVal = 0ListItems$,ItemsNum$,#,NumItemsf i=NumItems1c&numitem$ = GetArrayItem(ItemsNum$,#,i)cnumitem = VAL(numitem$)ListnumitemnumitemgihErroreeQ*********************************************************************************dDel_Type$ = 'Wmplayer'# Del_WMPlayereQ*********************************************************************************dDel_Type$ = 'Run_Mru'# Del_Start>RuneQ*********************************************************************************dDel_Type$ = 'Explor_Url'#Del_Explor_UrleQ*********************************************************************************dDel_Type$ = 'File'ListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)dArrayItem$ <> ''c4cmd$ = 'HIDE,WAIT /C Del "' + ArrayItem$ + '" /Q /F'cmd.execmd$hCNo Inserted Path !!! . Danger For Delete Files in Current Path !!!.e**dCBK_ReturnVal = 0ListItems$,ItemsNum$,#,NumItemsf j=NumItems1c&numitem$ = GetArrayItem(ItemsNum$,#,j)cnumitem = VAL(numitem$)ListnumitemnumitemgjDelete File Successfully CBK_ReturnVale**gied TextBTN?Start > All Programs > Startup Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'Startup'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied TextBTN1? Favorites Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'Favorites'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied TextBTN2?Recent Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'Recent'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied TextBTN3?SendTo Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'SendTo'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied *TextBTN4?Temporary Internet Files Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'Cache'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied +DTextBTN5?History Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'History'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied E^TextBTN6?Fonts Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'Fonts'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egied iVTextBTN7? Customize ArialList-1cDir$=CBK_OpenDird Dir$ <> ''List-1PDir$EditBox$ListedEditBox$EditBoxNYl~EditBox?*.tmp"Ariald 9RTextBTN8? Start > Run Arial4cDel_Type$ = 'Run_Mru'c Str_Nul$ = ''c1To_File=StrToFile(c:\txt.txt,Str_Nul$,FALSE,TRUE)List-1cocmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" >c:\RunMRU.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = 'MRUList'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")cLen_Copy=LEN(copy$)fk=1Len_CopycStr_Get$=StrGet(copy$,k)cStr_Get$ = ' ' + Str_Get$ + ' 'c0To_File=StrToFile(c:\txt.txt,Str_Get$,TRUE,TRUE)gk.**********************************************cNol_txt=NOL(C:\txt.txt)ftxt=1Nol_txtc#from$=StrFromFile(C:\txt.txt,txt,1)#addgtxt&** ListBoxAddItem("List","C:\txt.txt").**********************************************egied  TextBTN11?Windows > Temp ArialcDel_Type$ = 'File'ctemp$ = '\Temp'List-1Ptemp$*.*Listd u TextBTN12?Cookie Arial+cDel_Type$ = 'File'List-1cvcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" >c:\folder.txt'Cmd.execmd$***************************cPosStr=0cOpenFile$ = 'c:\folder.txt'cEditBox$ = 'cookie'd OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")**Message("copy$","")d copy$ <> ''List-1Pcopy$*.*Liste.**********************************************egiedUeadd?Any comments here Tahoma!cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = from$d OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)!**DisplayValue("EditBox","copy$")Listcopy$.**********************************************egied%5 Del_Start>Run?Any comments here Tahoma'cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = ArrayItem$d OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1).**********************************************ccopy$=StrCopy(SLine$,5,1)**Message("copy$","")cwcmd$ = 'HIDE,WAIT /C reg Delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU" /v "' + copy$ + '" /F'Cmd.execmd$dCBK_ReturnVal = 0ListItems$,ItemsNum$,#,NumItemsf ii=NumItems1c'numitem$ = GetArrayItem(ItemsNum$,#,ii)cnumitem = VAL(numitem$)ListnumitemnumitemgiihError iN Delete !!!eegied U TextBTN13?Delete Tahoma# Delete_Itemd 8TextBTN9?Windows Media Player Arial*cDel_Type$ = 'Wmplayer'List-1cjcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\MediaPlayer\Player\RecentFileList" >c:\RunMRU.txt'Cmd.execmd$***************************ffileN=08cfile$=CHR(fileN)ccounter$ = ' File' + file$**Message("","counter$")***************************cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = counter$d OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)List STRING:copy$.**********************************************egiegfileNdEU Del_WMPlayer?Any comments here Tahoma(cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = ArrayItem$d OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1).**********************************************ccopy$=StrCopy(SLine$,5,5)**Message("copy$","")copy$crcmd$ = 'HIDE,WAIT /C reg Delete "HKCU\Software\Microsoft\MediaPlayer\Player\RecentFileList" /v "' + copy$ + '" /F'Cmd.execmd$dCBK_ReturnVal = 0ListItems$,ItemsNum$,#,NumItemsf ii=NumItems1c'numitem$ = GetArrayItem(ItemsNum$,#,ii)cnumitem = VAL(numitem$)ListnumitemnumitemgiihError iN Delete !!!eegied  TextBTN10?Explorer > URL Arial*cDel_Type$ = 'Explor_Url'List-1cdcmd$ = 'HIDE,WAIT /C reg Query "HKCU\Software\Microsoft\Internet Explorer\TypedURLs" >c:\RunMRU.txt'Cmd.execmd$***************************ffileN=120cfile$=CHAR(fileN)ccounter$ = ' url' + file$**Message("","counter$")***************************cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = counter$d OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='REG_SZ 'cRetVal=POS(substring$,SLine$)cRetVal = RetVal + 7c copy$=StrCopy(SLine$,RetVal,len)List STRING:copy$.**********************************************egiegfileNd Sl TextBTN14? Uninstall ArialList-1cicmd$ = 'HIDE,WAIT /C reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" >c:\RunMRU.txt'Cmd.execmd$Ounin$ C:\RunMRU.txtca$ = '! REG.EXE VERSION 3.0'cb$ = ''cchange$=StrChange(unin$,a$,b$)cMa$ = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall'cb$ = ''c change$=StrChange(change$,a$,b$)cchange$=StrChange(change$,\,b$)cechange$=StrChange(change$,HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\,b$)c1Error=StrToFile(c:\RunMRU.txt,change$,FALSE,TRUE)List C:\RunMRU.txtd5EDel_Explor_Url?Any comments here Tahoma*cPosStr=0cOpenFile$ = 'c:\RunMRU.txt'cEditBox$ = ArrayItem$d OpenFile$<>'' ** get number of lines from filecNumOfLines=NOL(OpenFile$)cSubStr$=EditBox$$** change searched word to lowercasecSubStrLow$=LOW(SubStr$)fi=1 NumOfLines** get new line from filec!SLine$=StrFromFile(OpenFile$,i,1)"** change loaded line to lowercasecSLow$=LOW(SLine$)-** Get position of a SubString in loaded linecPosStr=POS(SubStrLow$,SLow$)6** if substring is found then load line to text objectd PosStr<>0c$SLineRes$=StrFromFile(OpenFile$,i,1).**********************************************ccopy$=StrCopy(SLine$,5,5)c spc$ = ' 'c null$ = ''c'change_1$ = StrChange(copy$,spc$,null$)c(change_1$ = StrChange(change_1$, ,null$)cpcmd$ = 'HIDE,WAIT /C reg Delete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs" /v "' + change_1$ + '" /F'Cmd.execmd$dCBK_ReturnVal = 0ListItems$,ItemsNum$,#,NumItemsf ii=NumItems1c'numitem$ = GetArrayItem(ItemsNum$,#,ii)cnumitem = VAL(numitem$)ListnumitemnumitemgiihError iN Delete !!!cmd$eegiedText?memail: dr.mfire@gmail.com my site: http://vb-delphi-cpp.blogfa.com http://fire-mmb.blogfa.com VerdanadMaster Page 000YMaster Layer 000YMyApp1.0.0.0