Конференция VBStreets

**_Мика_** » 16.01.2005 (Вс) 23:59

Хотелось бы достать все что лежит в "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" и закинуть в листбокс. :oops:

ЗЫ и еще кнопочка, по нажатию которой удалялась бы запись из реестра выбранного пкнкта :roll:

**GSerg** » 17.01.2005 (Пн) 0:01

Эх...
Ленивый народ пошёл...
http://bbs.vbstreets.ru/viewtopic.php?t=9666

**_Мика_** » 17.01.2005 (Пн) 0:04

Эх...
Ленивый народ пошёл...
http://bbs.vbstreets.ru/viewtopic.php?t=9666

Не говорите!

Спасибо

**_Мика_** » 17.01.2005 (Пн) 0:09

Хм... когда я пишу так

Код: Выделить всё: For i = 0 To UBound(SubKeys(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run")) List1.AddItem SubKeys(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run")(i) Next i

то он мне записывает в листбокс ето : OptionalComponents

**GSerg** » 17.01.2005 (Пн) 0:10

От извращенец

Тебе SubValues нужно.

Это во-первых. Во-вторых: прекрати вызывать реестр на каждой итерации! Запомни результат первого вызова в переменную и обращайся к ней...

**_Мика_** » 17.01.2005 (Пн) 0:16

Ладно

Код: Выделить всё: Dim s() As String Private Sub Form_Load() s() = SubValues(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run") List1.AddItem s(1) End Sub

Ошибка Cant asign to array
:roll:

**GSerg** » 17.01.2005 (Пн) 0:20

s=, без скобок. Это раз.
И переменная s должна быть совсем не string, а очень даже RegValueDescr, это два

**_Мика_** » 17.01.2005 (Пн) 0:20

Тупая моя бошка!

надо Dim pt As RegValueDescr
но тогда как:

SubValues(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run")(pt)
так ругается

SubValues HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" (pt)
так ругается

SubValues HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run" pt
так ругается
:roll:

**GSerg** » 17.01.2005 (Пн) 0:22

argh...

dim s() as RegValueDescr
s=SubValues(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
msgbox s(1).name
msgbox s(1).value

**_Мика_** » 17.01.2005 (Пн) 0:23

Спсасибо, и спасибо за терпение

**_Мика_** » 17.01.2005 (Пн) 0:25

Хм...

Код: Выделить всё: Dim pt() As RegValueDescr Private Sub Form_Load() pt() = SubValues(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Run") List1.AddItem pt(1).Name & " " & pt(1).Value & " " & pt(1).ValueType End Sub

Выдет что не может найти файл advapi32.dllu :wink:

**GSerg** » 17.01.2005 (Пн) 0:27

Вон даже как....
Дык нефиг буковки ставить туда, где их не должно быть....

**_Мика_** » 17.01.2005 (Пн) 0:33

Что???
Попробывал вашем способом - тоде самое!!!

**GSerg** » 17.01.2005 (Пн) 0:36

Пройдись по секции деклараций и посмотри, в каком месте ты добавил букву u к dll...

**_Мика_** » 17.01.2005 (Пн) 0:37

Я??? Я вообще не чего не добовлял, вроде :roll:

Ща посмотрю!

Да есть такое дело, но я не чег8о не добовлял! :oops:

Конференция VBStreets

Реестр

Реестр

Кто сейчас на конференции