MMBuilder28 UninstallerPage 1(Y }List?"ArialListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gidcs 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)gids 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$ = 'Run_Mru' # Del_Start>RuneQ*********************************************************************************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***If (CBK_ReturnVal <> 0) ThenError iN Delete Item ! CBK_ReturnVal*End**giListItems$,ItemsNum$,#,NumItemsf j=NumItems1c&numitem$ = GetArrayItem(ItemsNum$,#,j)cnumitem = VAL(numitem$)ListnumitemnumitemgjedList1? Tahomad  TextBTN15?Get Item Arial&ListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gi*********************cPosStr=0cOpenFile$ = 'c:\a.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) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='|--------->'cRetVal=POS(substring$,SLine$)** RetVal = RetVal + 7c Del$ = StrDel(SLine$,RetVal,len)Del$#** copy$=StrCopy(SLine$,RetVal,len).**********************************************egied>NScript?Any comments here Tahomaccmd$ = 'HIDE,WAIT /C Reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\' + ArrayItem$ + '" /V "DisplayName" >C:\Run.txt'cmd.execmd$!*********************************c,Startup_Item$=StrFromFile(C:\Run.txt,5,1000)c dest$ = ' 'c sourc$ = ''c1Change_Str$=StrChange(Startup_Item$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)cdest$ = 'REG_SZ'**sourc$ = '|--------->'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)cdest$ = 'REG_EXPAND_SZ'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)cdest$ = 'DisplayName'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c4To_File=StrToFile(c:\run.txt,Change_Str$,FALSE,TRUE)"**********************************center$ = CHR(13) + CHR(10)dChange_Str$ <> enter$c/Str$ = ArrayItem$ + '|--------->' + Change_Str$c+too_file=StrToFile(C:\A.txt,Str$,TRUE,TRUE)List C:\run.txtedO_StartupF5?Any comments here Tahoma'ccc$ = ''c,too_file=StrToFile(C:\A.txt,cc$,FALSE,FALSE)c.too_file=StrToFile(C:\Run.txt,cc$,FALSE,FALSE)c1too_file=StrToFile(C:\RunMRU.txt,cc$,FALSE,FALSE)List-1List1-1cicmd$ = 'HIDE,WAIT /C reg Query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" >c:\RunMRU.txt'Cmd.execmd$List1 C:\RunMRU.txtList1 C:\RunMRU.txtList1-1V10Ounin$ 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)List1 C:\RunMRU.txt(******************************** ConvertList1clnum = CBK_NumInList** Select 1 to n itemfj=1lnumList1j** Get text of ItemList1Items$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gi** Get True NameV1#Script** Endgjd z TextBTN16? Uninstall ArialCListItems$,ItemsNum$,#,NumItemsfi=1NumItemsc%ArrayItem$ = GetArrayItem(Items$,#,i)gi*********************cPosStr=0cOpenFile$ = 'c:\a.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) ** exit loop.**********************************************clen=LEN(SLine$)csubstring$='|--------->'cRetVal=POS(substring$,SLine$)** RetVal = RetVal + 7c Del$ = StrDel(SLine$,RetVal,len)l************************************************************************************************************ccmd$ = 'HIDE,WAIT /C Reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\\' + Del$ + '" /V "UninstallString" >C:\Unin.txt'cmd.execmd$!*********************************c-Startup_Item$=StrFromFile(C:\Unin.txt,5,1000)c dest$ = ' 'c sourc$ = ''c1Change_Str$=StrChange(Startup_Item$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c dest$ = ' 'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)cdest$ = 'REG_SZ'**sourc$ = 'REG_EXPAND_SZ'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)cdest$ = 'REG_EXPAND_SZ'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)cdest$ = 'UninstallString'c/Change_Str$=StrChange(Change_Str$,dest$,sourc$)c5To_File=StrToFile(c:\Unin.txt,Change_Str$,FALSE,TRUE)"**********************************c+too_file=StrToFile(C:\A.txt,Str$,TRUE,TRUE)c+cmd$ = 'HIDE,WAIT /C "' + Change_Str$ + '"'cmd.execmd$c*cmd$ = 'HIDE,WAIT /C start ' + Change_Str$*Run("cmd.exe","cmd$") CBK_ReturnVall************************************************************************************************************egiedText1?memail: dr.mfire@gmail.com my site: http://vb-delphi-cpp.blogfa.com http://fire-mmb.blogfa.com"Tahomad$Startup10Master Page 000YMaster Layer 000YMyApp1.0.0.0