Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2011-03-04 10:14:13 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 02:56:11
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2011-03-04 10:15:38 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 02:56:11
карма: 0

0
Ответов: 4663
Рейтинг: 767
#3: 2011-03-04 11:55:30 ЛС | профиль | цитата
Вот: http://tempfile.ru/file/1665913
Ничего проще в голову не пришло.
карма: 26

0
Ответов: 294
Рейтинг: 64
#4: 2011-03-04 12:28:54 ЛС | профиль | цитата
Или через консоль:

Add(Button,4210983,210,231)
{
Left=5
Top=10
Data=String(HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionWindowsUpdateSusClientId)
link(onClick,11322978:doString,[])
}
Add(RichEdit,7105146,406,224)
{
Left=5
Top=40
Width=330
Height=225
ScrollBars=3
}
Add(WinExec,9873004,350,217)
{
FileName="cmd"
Point(doConsoleExec)
Point(onConsoleResult)
Point(doConsoleInput)
link(onConsoleResult,7105146:doAdd,[])
}
Add(Hub,6947586,308,231)
{
link(onEvent1,9873004:doConsoleExec,[])
link(onEvent2,9873004:doConsoleInput,[])
}
Add(Edit,12692315,259,182)
{
Left=70
Top=10
Width=265
Text="HKEY_LOCAL_MACHINESoftwareMicrosoftWindows NTCurrentVersionDrivers32"
}
Add(FormatStr,11322978,259,231)
{
DataCount=1
Mask="reg query "%1"
"
link(onFString,6947586:doEvent1,[])
link(Str1,12692315:Text,[])
}



карма: 0

0
Ответов: 4663
Рейтинг: 767
#5: 2011-03-04 12:33:15 ЛС | профиль | цитата
Можно и так, но на Windows 2000 утилиты Reg нету. А также вызов сторонней программы...
карма: 26

0
Ответов: 294
Рейтинг: 64
#6: 2011-03-04 12:49:33 ЛС | профиль | цитата
[flood]
Netspirit писал(а):
Можно и так, но...

Мой пост начинается с "Или", что означает - без претензии на оптимальность ))[/flood]
карма: 0

0
Ответов: 4663
Рейтинг: 767
#7: 2011-03-04 12:58:29 ЛС | профиль | цитата
[offtop]Quest, но и мой пост - только уточнение . В любом случае каждый выберет то, что ему удобнее.[/offtop]

карма: 26

0
Гость
Ответов: 17029
Рейтинг: 0
#8: 2011-03-05 01:17:20 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 02:56:11
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2011-03-05 01:35:55 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 02:56:12
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2011-03-07 03:55:56 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 02:56:12
карма: 0

0
Ответов: 1133
Рейтинг: 81
#11: 2011-03-07 04:20:35 ЛС | профиль | цитата
г. goluzov писал(а):
у меня в registry нет doHKey

А лучше присмотреться?

карма: 2

0
Ответов: 4663
Рейтинг: 767
#12: 2011-03-07 11:48:24 ЛС | профиль | цитата
г. goluzov писал(а):
былоб не плохо, если вверху "key" прописывал полностью

Windows API функции работают с раздельным заданием HKey и Key. Поэтому компонент работает
так же. В любом случае пришлось бы вытаскивать HKey из входной строки в коде компонента.
А для чего это всё нужно?
карма: 26

0
Гость
Ответов: 17029
Рейтинг: 0
#13: 2011-03-07 14:52:08 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 02:56:12
карма: 0

0
Ответов: 1133
Рейтинг: 81
#14: 2011-03-07 15:40:28 ЛС | профиль | цитата
г. goluzov писал(а):
у меня в registry нет doHKey

Netspirit писал(а):
Hkey есть в свойствах и все


Чет я ничего не понял. Что значит есть в свойствах и все? А точка doHKey разве не появляется на компоненте, когда в свойствах в квадратике HKey ставить или снимать метку?
карма: 2

0
Ответов: 4663
Рейтинг: 767
#15: 2011-03-07 15:57:20 ЛС | профиль | цитата
г. goluzov, то-есть, требуется верхняя точка HKey? Тогда DoData тебе в помощь.
карма: 26

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)