PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » PureBasic для Windows » Внесение значений в реестр

Внесение значений в реестр

Страница: 1

Сообщений 1 страница 5 из 5

1

  • Автор: semyrai
  • Новичок
  • Зарегистрирован: 19.01.2013
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 час 2 минуты
  • Последний визит:
    23.01.2013 14:58:26

Здравствуйте читатели этой темы, меня интересует внесение значений в реестр с помощью Дропи.
Я начинающий программер, нашел описание библиотеки но у меня не получается внести изменения...
Вот суть программы: Запуск-Внесение изменений в реестр-Выключение... (да, просто, но не для меня)
Вот куда надо внести изменения (да, я знаю что после рестарта компа их откатит):
"HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\SystemBiosVersion"
Значения должны быть такими (это конфигурация моего ПК, нужно чтобы эти параметры были в реестре другого компьютера):
"SECCSD - 6040000
Phoenix SecureCore(tm) NB Version 02NR.MP00.20100126.HCW
Ver 1.00PARTTBLU
"
Или в двоичном коде (так как это находится в реестровом файле ".reg"):

Код:
hex(7):53,00,45,00,43,00,43,00,53,00,44,00,20,00,2d,00,20,\
  00,36,00,30,00,34,00,30,00,30,00,30,00,30,00,00,00,50,00,68,00,6f,00,65,00,\
  6e,00,69,00,78,00,20,00,53,00,65,00,63,00,75,00,72,00,65,00,43,00,6f,00,72,\
  00,65,00,28,00,74,00,6d,00,29,00,20,00,4e,00,42,00,20,00,56,00,65,00,72,00,\
  73,00,69,00,6f,00,6e,00,20,00,30,00,32,00,4e,00,52,00,2e,00,4d,00,50,00,30,\
  00,30,00,2e,00,32,00,30,00,31,00,30,00,30,00,31,00,32,00,36,00,2e,00,48,00,\
  43,00,57,00,00,00,56,00,65,00,72,00,20,00,31,00,2e,00,30,00,30,00,50,00,41,\
  00,52,00,54,00,54,00,42,00,4c,00,55,00,00,00,00,00

Пробовал вность через реестровый файл (".reg") но нужно скрытое добавление в реестр (без всяких "окошечек")
Эта программа должна быть "приставкой" к другой, которая будет инициатором исполнения файла (т.к сама программа не способна вносить значения в реестр).
Помогите нубарю) :canthearyou:

Отредактировано semyrai (20.01.2013 10:51:17)

0

2

  • Автор: Paranoia
  • Активный участник
  • Зарегистрирован: 24.06.2012
  • Приглашений: 0
  • Сообщений: 47
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Возраст: 32 [1991-06-14]
  • Провел на форуме:
    8 дней 6 часов
  • Последний визит:
    10.08.2019 05:59:03

Ставьте библиотеку Droopy:
http://droopylib.pagesperso-orange.fr/
Откройте ее справку и смотрите раздел Registry, там будут примеры и описание команд по работе с реестром Windows.

0

3

  • Автор: semyrai
  • Новичок
  • Зарегистрирован: 19.01.2013
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 час 2 минуты
  • Последний визит:
    23.01.2013 14:58:26

Если ты читал моё сообщение то ты наверное заметил что...

semyrai написал(а):

нашел описание библиотеки но у меня не получается внести изменения...

Там надо сделать один в один точно так же как в

semyrai написал(а):

SECCSD - 6040000
Phoenix SecureCore(tm) NB Version 02NR.MP00.20100126.HCW
Ver 1.00PARTTBLU

Но почему-то даже при мультистраковом параметре идёт всё максимум в 1 строчку, а если писать через на разных строках - программа выдаёт ошибку...

0

4

  • Автор: akim
  • Новичок
  • Зарегистрирован: 26.02.2011
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    39 минут
  • Последний визит:
    20.01.2013 17:07:17

Контроль учётных записей (UAC) должен быть отключен

EnableExplicit

#S = Chr(10)
#N = Chr(13) +#S

Procedure RegSetMultiString(Key, SubKey.s, ValueName.s, String.s)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, #REG_MULTI_SZ, @String, Len(String) +1)
  RegCloseKey_(hKey)
EndIf
EndProcedure

RegSetMultiString(#HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\", "SystemBiosVersion", "SECCSD - 6040000" +#N +"Phoenix SecureCore(tm) NB Version 02NR.MP00.20100126.HCW" +#N +"Ver 1.00PARTTBLU")

Проще и наглядней вместо Droopy использовать:

Procedure$ GetFileName(FName.s);Только имя
ProcedureReturn Left(GetFilePart(FName), Len(GetFilePart(FName)) -Len(GetExtensionPart(FName)) -1)
EndProcedure

;Key = #HKEY_CLASSES_ROOT, #HKEY_LOCAL_MACHINE, #HKEY_CURRENT_USER
Procedure.b RegKeyExists(Key, SubKey.s)
Protected hKey
RegOpenKeyEx_(Key, SubKey, 0, #KEY_READ, @hKey)
If hKey : RegCloseKey_(hKey) : ProcedureReturn 1 : EndIf
EndProcedure

Procedure RegCreateKey(Key, SubKey.s)
Protected hKey, CreateKey
If Not RegCreateKeyEx_(Key, SubKey, 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_ALL_ACCESS, 0, @hKey, @CreateKey) : RegCloseKey_(hKey) : EndIf
EndProcedure

Procedure RegSetLong(Key, SubKey.s, ValueName.s, Value.l)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, #REG_DWORD, @Value, 4)
  RegCloseKey_(hKey)
EndIf
EndProcedure

Procedure RegGetLong(Key, SubKey.s, ValueName.s)
Protected Size.b = 4, hKey, Type, Result
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_READ, @hKey) And hKey
   RegQueryValueEx_(hKey, ValueName, 0, @Type, @Result, @Size)
   RegCloseKey_(hKey)
  EndIf
ProcedureReturn Result
EndProcedure

Procedure RegSetInteger(Key, SubKey.s, ValueName.s, Value)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, #REG_QWORD, @Value, 8)
  RegCloseKey_(hKey)
EndIf
EndProcedure

Procedure RegGetInteger(Key, SubKey.s, ValueName.s)
Protected Size.b = 8, hKey, Type, Result
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_READ, @hKey) And hKey
   RegQueryValueEx_(hKey, ValueName, 0, @Type, @Result, @Size)
   RegCloseKey_(hKey)
  EndIf
ProcedureReturn Result
EndProcedure

Procedure RegSetString(Key, SubKey.s, ValueName.s, String.s, Type.b = #REG_SZ)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, Type, @String, Len(String) +1)
  RegCloseKey_(hKey)
EndIf
EndProcedure

Procedure RegSetMultiString(Key, SubKey.s, ValueName.s, String.s)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, #REG_MULTI_SZ, @String, Len(String) +1)
  RegCloseKey_(hKey)
EndIf
EndProcedure

Procedure$ RegGetString(Key, SubKey.s, ValueName.s)
Protected hKey, Size = #MAX_PATH, Result.s = Space(Size)
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey)
  RegQueryValueEx_(hKey, ValueName, 0, 0, @Result, @Size)
  RegCloseKey_(Key)
EndIf
ProcedureReturn Left(Result, Size -1)
EndProcedure

Procedure RegSetBinary(Key, SubKey.s, ValueName.s, Value.s)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, #REG_BINARY, @Value, Len(Value))
  RegCloseKey_(hKey)
EndIf
EndProcedure

Macro RegDelKey(Key, SubKey)
RegDeleteKey_(Key, SubKey)
EndMacro

Procedure$ GetRegKey(Key, SubKey.s, ValueName.s = "")
Protected BufferSize, Type, hKey, Result.s, *Buffer
If RegOpenKeyEx_(Key, @SubKey, 0, #KEY_ALL_ACCESS, @hKey) = #ERROR_SUCCESS
  If RegQueryValueEx_(hKey, @ValueName, 0, @Type, 0, @Buffersize) = #ERROR_SUCCESS
   If Buffersize
    *Buffer = AllocateMemory(Buffersize)
    If *Buffer
     If RegQueryValueEx_(hKey, @ValueName, 0, @Type, *Buffer, @Buffersize) = #ERROR_SUCCESS
      Select Type
       Case #REG_BINARY : Result = ""
       Case #REG_DWORD : Result = StrU(PeekL(*Buffer), #PB_Long)
       Case #REG_DWORD_LITTLE_ENDIAN : Result = StrU(PeekL(*Buffer), #PB_Long)
       Case #REG_EXPAND_SZ : Result = PeekS(*Buffer)
       Case #REG_LINK : Result = PeekS(*Buffer, -1, #PB_Unicode)
       Case #REG_MULTI_SZ : Result = PeekS(*Buffer)
       Case #REG_NONE
       Case #REG_QWORD : Result = StrU(PeekL(*Buffer), #PB_Quad)
       Case #REG_QWORD_LITTLE_ENDIAN : Result = StrU(PeekL(*Buffer), #PB_Quad)
       Case #REG_SZ : Result = PeekS(*Buffer)
      EndSelect
     EndIf
    EndIf
   EndIf
  EndIf
EndIf
If *Buffer : FreeMemory(*Buffer) : *Buffer = 0 : EndIf
ProcedureReturn Result
EndProcedure

Procedure RegAutoRun(Flag.a)
Protected$ ProgName = ProgramFilename(), Name = GetFileName(GetFilePart(ProgName))
Protected Key, Handle = RegOpenKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", 0, #KEY_ALL_ACCESS, @Key)
If Not Handle
  If Flag : RegSetValueEx_(Key, @Name, 0, #REG_SZ, @ProgName, Len(ProgName)) : Else : RegDeleteValue_(Key, @Name) : EndIf
  RegCloseKey_(Key)
EndIf
EndProcedure

;HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
;HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
;HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
;HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce
;HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
Procedure ProgramStartUp(Flag.b)
Protected Key, FName.s = ProgramFilename(), Name.s = GetFileName(GetFilePart(FName))
If Not RegOpenKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", 0, #KEY_ALL_ACCESS, @Key)
  If Flag : RegSetValueEx_(Key, @Name, 0, #REG_SZ, @FName, Len(FName)) : Else : RegDeleteValue_(Key, @Name) : EndIf
  RegCloseKey_(Key)
EndIf
EndProcedure

Procedure ContextMenuCreate(Menu.s, FName.s, State.b = #True)
FName = GetCurrentDirectory() +FName
If State : RegSetString(#HKEY_CLASSES_ROOT, "*\Shell\" +Menu +"\command", "", Chr(34) +FName +Chr(34) +" " +Chr(34) +"%1" +Chr(34))
Else : ProcedureReturn RegDelKey(#HKEY_CLASSES_ROOT, "*\Shell\" +Menu)
EndIf
EndProcedure
;ContextMenuCreate("Открыть в " +#PROG_NAME, #PROG_NAME +".exe")

Отредактировано akim (20.01.2013 17:06:27)

0

5

  • Автор: semyrai
  • Новичок
  • Зарегистрирован: 19.01.2013
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 час 2 минуты
  • Последний визит:
    23.01.2013 14:58:26
akim написал(а):

Контроль учётных записей (UAC) должен быть отключен
EnableExplicit
#S = Chr(10)
#N = Chr(13) +#S
Procedure RegSetMultiString(Key, SubKey.s, ValueName.s, String.s)
Protected hKey
If Not RegOpenKeyEx_(Key, SubKey, 0, #KEY_ALL_ACCESS, @hKey) And hKey
  RegSetValueEx_(hKey, @ValueName, 0, #REG_MULTI_SZ, @String, Len(String) +1)
  RegCloseKey_(hKey)
EndIf
EndProcedure
RegSetMultiString(#HKEY_LOCAL_MACHINE, "HARDWARE\DESCRIPTION\System\", "SystemBiosVersion", "SECCSD - 6040000" +#N +"Phoenix SecureCore(tm) NB Version 02NR.MP00.20100126.HCW" +#N +"Ver 1.00PARTTBLU")

Большое спасибо! сам бы я никогда не справился...

0

Страница: 1

Вы здесь » PureBasic - форум » PureBasic для Windows » Внесение значений в реестр