Строки в CheckListBox

[VladBallu]

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

[Stilet]

with CheckListBox do
 for i:=0 to Count-1 do
  if Checked[i] then begin
   item[i] чекнутый
  end;

[VladBallu]

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

with CheckListBox do
 for i:=0 to Count-1 do
  if Checked[i] then begin
   item[i] чекнутый
  end;

А как примерно будет выглядить это? Допустим у меня 2 строки высветилось, я выделил первую и жму на "исправить". Тогда, что именно мне в кнопке "исправить" нужно прописать?

with CheckListBox do
for i:=0 to Count-1 do
if Checked[i] then begin
item[i] Checked then
begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlS et\Services\Cdrom', True);
reg.WriteInteger('Autorun', 1);
reg.CloseKey;
end else begin
reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlS et\Services\Cdrom', True);
reg.WriteInteger('Autorun', 0);
reg.CloseKey;

Дополню. Количество строк у меня неизвестно, их может быть N количество, все зависит от того, сколько уязвимостей выявит программа в Системе.

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

with CheckListBox do
 for i:=0 to Count-1 do
  if Checked[i] then begin
   item[i] чекнутый
  end;

Точнее куда это прописать?

[Stilet]

я выделил первую и жму на "исправить".

Мдя... Алгоритм у тебя судя по всему гиблый.
Хочешь индокод? Ладно:

reg:= TRegistry.Create;
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlS et\Services\Cdrom', True);

if CheckListBox.Checked[0] then  reg.WriteInteger('Autorun', 1);
else reg.WriteInteger('Autorun', 0);
reg.CloseKey;

А вообще смысл моего кода таков: Пройтись по списку, и если что-то выделено выполнить процедуру, согласно элементу
Список процедур можно хранить в свойстве Objects[] самого компонента. Тогда схема может быть следующей:

with CheckLB do begin
 AddItem('Автозагрузка',TObject(@Auto));
 AddItem('0-day',TObject(@Zerod));
 AddItem('Репорт ошибко',TObject(@Repa));
end;

Где Auto,Zerod,Repa допустим процедуры типа

procedure Auto(Checked:Boolean);
begin
with TRegistry.Create do begin
 RootKey:= HKEY_LOCAL_MACHINE;
 OpenKey('SYSTEM\CurrentControlS et\Services\Cdrom', True);
 if Checked then  WriteInteger('Autorun', 1);
 else WriteInteger('Autorun', 0);
 CloseKey; 
free;
end;
end;

Тогда мой пример приобретает следующий смысл:

type tp=procedure;
var p:tp;
...
with CheckListBox do
 for i:=0 to Count-1 do
  if Checked[i] then begin
   p:=tp(Objects[i]);
   p(Checked[i]);
  end;

Т.е. создать пул процедур-обработчиков, привязать их к списку, и вызывать для чекнутой строки свою привязанную процедуру.

Идея понятна?

[VladBallu]

Спасибо большое, буду пробовать.
В целом я понял что да как делать.