[Alegun]

Так можно перебрать все *.reg-файлы в папке

Код:

var
 SR: TSearchRec;
begin
 if FindFirst('C:\Tweaks\', 32, SR) = 0 then
  repeat
   if ExtractFileExt(SR.Name) = '.reg' then

  { .....
   SR.Name
   .....}

  until 
   FindNext(SR) <> 0;
 FindClose(SR);
end;

а вот насчёт внесения их в реестр - это похоже на криминал, что не есть хорошо