Показать список сервисов Windows (прочитать из реестра). Где ошибка?

[SovereignSun]

Уже час мудохаюсь.. не понимаю, что не так. на форме ListBox (lst1) и все, должно считываться поле DisplayName с каждого сервиса, в будущем планирую менять подставлять в поле Memo данные по разным ключам при нажатии на сервис в ListBox.Items и popup на отключение и включение. Вот только на самой простой задачи застрял.

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Services\', FALSE);
reg.GetKeyNames(lst1.Items);
for i:=0 to lst1.Count do
begin
  lst1.ItemIndex:=i;
  reg.OpenKey('SYSTEM\CurrentControlSet\Services\'+lst1.Items[lst1.ItemIndex], FALSE);
  ShowMessage('SYSTEM\CurrentControlSet\Services\'+lst1.Items[lst1.ItemIndex]+'   {'+reg.ReadString('DisplayName')+'}');
end;
reg.Free;
end;

[BDA]

Сначала попробуйте:

for i:=0 to lst1.Count-1 do...

Упд Скомпилировал - ничего не показывает... будем думать...
Упд2 Запустил под администратором - показало список какой-то

[SovereignSun]

насчет lst1.Count-1 уже проверял.. и так и так ничего не показывает, последняя запись в listbox соответствует общей сумме записей

насчет кода.. Очень странно то, что вручную указав по какому-то определенному сервису DisplayName (если таковой имееться) он его показывает, а через такой код не хочет, логике не поддается.

2 BDA: А случай если displayname вообще нет, это у нас какая команда отвечает?
Разве необходимо закрывать ключ, перед открытием?

[BDA]

Вот так у меня работает:

var i: integer;
reg:tregistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Services\', FALSE);
reg.GetKeyNames(lst1.Items);
reg.closekey;
listbox1.Clear;
for i:=0 to lst1.Count-1 do
begin
  lst1.ItemIndex:=i;
  reg.OpenKey('SYSTEM\CurrentControlSet\Services\'+lst1.Items[i], FALSE);
  listbox1.Items.Append('SYSTEM\CurrentControlSet\Services\'+lst1.Items[i]+'   {'+reg.ReadString('DisplayName')+'}');
  reg.CloseKey;
  end;
reg.Free;
end;

Ошибка возникает только с одной записью, у которой DisplayName не string, а multistring.

[BDA]

Не заметил ваших вопросов

А случай если displayname вообще нет, это у нас какая команда отвечает?

Похоже, что никакой.

Разве необходимо закрывать ключ, перед открытием?

Не знаю Но в самом цикле точно необходимо.

ПС В следующий раз так вопросы не задавайте) Я отслеживаю темы по новым сообщениям, а не захожу во все темы, где когда-либо писал.