[Alloc]

Приветствую всех уважаемые форумчане!

Помогите реализовать следующую задачу:

При нажатии на кнопку программа должна добавить в раздел "HKLM\Software\Microsoft\Windows\CurrentVersion\Ru nOnce" - ссылку на все ".reg" файлы которые найдет в папке "Tweaks" такого плана - "regedit.exe /s file1.reg"

Я в программировании не силен, будьте добры помогите решить поставленную задачу.

Заранее спасибо!

[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;

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

[Alloc]

Alegun, я конечно благодарен Вам за ответ, но вот свои предрассудки и нравоучения оставьте пожалуйста при себе.

Вот как сделал я, может кому пригодится:

Код:

var
  Registry: TRegistry;
  tsr: tsearchrec;
  WinDir : String;
begin
  WinDir := GetEnvironmentVariable('WinDir');
  Registry := TRegistry.Create;
  Registry.RootKey := HKEY_LOCAL_MACHINE;
  Registry.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce',False);

  if FindFirst('I386\SVCPACK\TWEAKS\*.reg',faAnyFile,tsr) = 0 then
    repeat
      Registry.WriteString('Tweak_' + tsr.Name,WinDir+'\System32\Tweaks\'+tsr.Name);
    until FindNext(tsr) <> 0;

  Registry.CloseKey;
  Registry.Free;
  FindClose(tsr);

[Alegun]

Оффтоп:

Сообщение от Alloc

... но вот свои предрассудки...

Радует, что живой человек вопрос задал, а не бот

Можно немного упростить, убрав из var и вызывая экземлярчик TRegistry динамически

Код:

 with TRegistry.Create do
  begin
   RootKey:=    ...
   OpenKey(     ...
   ...
   WriteString( ...
   ...
   CloseKey;
   Free;
  end;

[Alloc]

Сообщение от Alegun

Можно немного упростить, убрав из var и вызывая экземлярчик TRegistry

да, действительно, так будет лучше, спасибо за подсказку.

Задача решена.