Procedure ClearProd(StrClear: string = 'webalta'; ReestrClear:boolean=true; FileName: string = 'prefs.js'; DirName:string = '');
//                              строка поиска,                 чистить реестр?               имя файла,                        папка поиска
   var
   ClearList : TStringList;
   i:integer=0;
   begin
      ClearLog;
      ClearList := TStringList.Create;
      if(ReestrClear) then
         begin
            RegSearch('HKCR','',StrClear);
            RegSearch('HKCU','',StrClear);
            RegSearch('HKLM','',StrClear);
            RegSearch('HKEY_USERS','',StrClear);
            RegSearch('HKCC','',StrClear);
            SaveLog(GetAVZDirectory+'analiz.txt');
            ClearLog;
	    AddToLog('>ClearReg');
            ClearList.LoadFromFile(GetAVZDirectory+'analiz.txt'); //загрузка файла поиска в ClearList
            for i:=0 to ClearList.Count-1 do if(AnalizRegSearch(ClearList[i])=false) then AddToLog('>>Внимание!!! Не удалено: ' + ClearList[i]);
            ClearList.Free;
         end;
      
      if(DirName='') then
         begin
            ClearList := TStringList.Create;
            AddToLog('>ClearFile');
            if(checkFile(NormalDir('%appdata%')+ 'mozilla\firefox\profiles.ini')<>-1) then
               begin
                  ClearList.LoadFromFile(NormalDir('%appdata%')+ 'mozilla\firefox\profiles.ini');
                  i:=0;
	          while  i < ClearList.count do
	             begin
   	                if(pos('Path',ClearList[i])=0) then ClearList.delete(i)
   	                else
   	                   begin
      	                      Delete(ClearList[i],1,pos('=', ClearList[i])); //оставляем путь
      	                      ClearList[i]:=NormalDir(ClearList[i]); //нормализуем слеши
	                      ClearList[i]:=NormalDir('%appdata%')+ 'mozilla\firefox\' + ClearList[i];
      	                      i:=i+1;
    	                   end;
                     end;
                  for i:=0 to ClearList.count -1 do 
                  if checkFile(ClearList[i]+FileName)<>-1 then ClearFile(ClearList[i]+FileName,StrClear)
                  else addToLog('>>Файл не найден или не доступен: '+ClearList[i]+FileName);
               end
            else addToLog ('>>Файл не найден или не доступен: ' + NormalDir(('%appdata%')+ 'mozilla\firefox\profiles.ini'));
         end
      else ClearFile(DirName+FileName,StrClear);
      SaveLog(GetAVZDirectory+'analiz.txt');
   end;

Function AnalizRegSearch(Analizstr:string):boolean;//анализ строки [RegSearch] и удаление соответствующей записи в реестре
   var
      ARoot, AName, AParam: string='';       //имя раздела, имя ключа, значение ключа
   begin
      Delete(Analizstr,1,13);
      Delete(Analizstr,Pos('=',Analizstr),Length(Analizstr));
      ARoot:=Copy(Analizstr,1,(Pos('\\',Analizstr)-1));
      Delete(Analizstr,1,Pos('\\',Analizstr)+1);
      repeat
         AName:=AName+Copy(Analizstr,1,(Pos('\',Analizstr)));
         Delete(Analizstr,1,(Pos('\',Analizstr)));
      until Pos('\',Analizstr)=0;
      if Pos('Internet Settings',Analizstr)=0 then
         begin
            AName:=AName+Copy(Analizstr,1,(Pos(' ',Analizstr)-1));
            Delete(Analizstr,1,(Pos(' ',Analizstr)));
         end
      else
         begin
            AName:=AName+'Internet Settings';
            Delete(Analizstr,1,18);
         end;
            AParam:=Analizstr;
            RegKeyResetSecurity(ARoot,AName);
            if RegKeyParamDel(ARoot,AName,Aparam) then result:=true
            else result:=false;
   end;

Procedure ClearFile(FileName:string; ClearStr:string); //очистка файла FileName от строк, содержащих ClearStr
   var
      ClearFile : TStringList;
      j: integer=0;
   begin
      AddToLog(FileName);
      ClearFile := TStringList.Create;
      ClearFile.LoadFromFile(FileName);
      while  j < ClearFile.count do
         begin
            ClearFile[j]:=StringReplace(ClearFile[j],ClearStr,ClearStr);
            if(pos(ClearStr,ClearFile[j])<>0) then
               begin
                  AddToLog('>>'+ClearFile[j]);
     	  ClearFile.delete(j);
               end
            else j:=j+1;
         end;
      ClearFile.SaveToFile(FileName);
   end;

 begin
 ClearProd('smaxi',true,'user.js'); // удаление следов 'smaxi' из реестра и строк из файла user.js (из папки профиля мозиллы)
end.

R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://www.smaxi.net
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://www.smaxi.net
R0 - HKLM\Software\Microsoft\Internet Explorer\Main,Start Page = http://www.smaxi.net
O2 - BHO: (no name) - {9DA37E30-321F-4784-BA73-5F8B839CD24D} - (no file)