[s0Creator]

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

Да не. Вроде на первый взгляд все правильно. только замени REG.Destroy на REG.Free; ну и вообще, зачем на 2 части разбивать? И '\' в начале пути убери.

Код:

procedure TForm11.Button2Click(Sender: TObject);
begin
  REG:= TRegistry.Create;
  REG.RootKey:=HKEY_LOCAL_MACHINE;
  If REG.OpenKey:=('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', FALSE) Then
    Begin
      REG.GetValueNames(ListBox1.Items);
      REG.CloseKey;
   End;
  REG.Free;
end;

Код:

 If REG.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',  FALSE) Then