Реализация

[stopvirus]

Ну бригадиру привет!!!

Да простите глупость сморозил, забыл указать файл. Файл программный, туда заносятся данные с разных компьютеров по локальной сети. Разработчики решили оставить этот файл без расширения. Сам файл лежит на серсере и соответственно редактируется тоже там. Вот при редактировании, форма отказывается сохранять его. Точнее не получается.
Файл похож на системный hosts файл. он тоже без расширения.

Могу приложить некогда созданный на этом же форуме исходник редактирования hosts файла. Потому как принцип редактирования будет идентичен (я так думаю).

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

В ходе выполнения работы над программой, а конкретнее ковыряние в реестре, сформировался вопрос

Нужно создать отдельную форму на которой будут стоят CheckBoxы для определенных ветвей реестра. Эта форма будет выполнять роль проверки правильности работы безопасного режима на стационарной машине затем передача отчета на сервер,
Так вот Как при запуске формы проверить стоят ли правильные значения у определенных ветвей реестра, т.е. другими словами говоря, если правильно то стоит птичка, если нет то соответственно в реестре произошли изменения.
К примеру, вот кусек восстановления с .reg файла

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot]
"AlternateShell"="cmd.exe"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal]
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\A ppMgmt]
@="Service"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B ase]
@="Driver Group"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B oot Bus Extender]
@="Driver Group"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B oot file system]
@="Driver Group"
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\C ryptSvc]
@="Service"

как правильно проверить эти параметры?

[Alexei91]

Пишете что-нибудь <b>подобное</b>.
В uses добавляете модуль Registry.
Создаете потомок от TRegistry.
Напр.,

var 
   Rg : TRegistry;
   P1 : String;
begin
   Rg := TRegistry.Create();
   Rg.RootKey := HKEY_LOCAL_MACHINE;
   (* Считываю знач. параметра AlternateShell, если данного п-ра нету, то не созд-ть его*)
   if Rg.OpenKey('SYSTEM\CurrentControlSet\Control\SafeBoot', False) then
   P1 := Rg.ReadString('AlternateShell', P1);
   if P1 = 'cmd.exe' then 
   (* какой-то код *)
   ...
end;
...

From Stilet: У нас теги имеют не <> а [] брекеты. Пользуйся кнопкой #

P.S.
Rg.Free,Try ... Finally, Try ... Except и т.п. сами добавите.
Удачи.

[stopvirus]

Покажите образец пожалуйста!

вот начал работу с реестром и возникло несколько проблем.
Во-первых, если убрать все галочки и нажать применить изменения, настройки сбрасываются. Как сделать так что бы такого не происходило?
Во-вторых, как такой же галочкой можно изменить такие ветки, как следующие?

[HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\Explorer\ Advanced\Folder\Hidden\NOHIDDEN]
"RegPath"="Software\\Microsoft\\Win dows\\CurrentVersion\\Explorer\\Adv anced"
"Text"="@shell32.dll,-30501"
"Type"="radio"
"CheckedValue"=dword:00000002

или такие:

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B oot Bus Extender]
@="Driver Group"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B oot file system]
@="Driver Group"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\C ryptSvc]
@="Service"

Еще вопрос, как можно несколько настроек такого образца, объединить под одной галочкой?

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot]
"AlternateShell"="cmd.exe"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal]

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\A ppMgmt]
@="Service"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B ase]
@="Driver Group"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B oot Bus Extender]
@="Driver Group"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\B oot file system]
@="Driver Group"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\C ryptSvc]
@="Service"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\D comLaunch]
@="Service"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\d madmin]
@="Service"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\SafeBoot\Minimal\d mboot.sys]
@="Driver"

То есть другими словами говоря, выбирая одну галочку, меняются сразу несколько ключей реестра?