Текущий архив: 2005.01.02;
Скачать: CL | DM;

Вниз

работа с реестром   Найти похожие ветки 

← →
Dot   (2004-11-13 00:56) [0]

Мастера! Покажите код как на Апи изменить строчный параметр реестра.
допустим в таком разделе а\б\с\ изменить параметр Y ключа Х на блаблабла

---

← →
Gero ©   (2004-11-13 00:58) [1]

TRegistry

---

← →
Dot   (2004-11-13 01:03) [2]

Для таких как Gero повторяю НА АПИ!!!!!!

---

← →
Gero ©   (2004-11-13 01:06) [3]

> Dot   (13.11.04 01:03)

Повотрять мне не нужно, а тем более кричать.
У тебя Registry.pas нету?
Если нету, то могу тебя уверить, что вся работа с реестром там осуществляется именно с помощью WinAPI.

---

← →
Dot   (2004-11-13 01:30) [4]

Да я в дельфи то плохо разбераюсь потому и прошу привести мне код именно готовый чтобы мне ег о скопировать и вставить в программу, вот как я сказал. вот то он должен делать + а Апи это все должно быть то есть проще говоря обясните мне синтаксис апи функции RegSetValue или как она там называется

---

← →
Alex_Petr ©   (2004-11-13 03:32) [5]

"The RegSetValue function associates a value with a specified key. This value must be a text string and cannot have a name. This function is provided for compatibility with Windows version 3.1. Win32-based applications should use the RegSetValueEx function, which allows an application to set any number of named values of any data type."
Далее: RegSetValueEx + F1 - там все понятно

---

← →
Electric   (2004-11-16 10:47) [6]

Удалено модератором

---

← →
Alex_Petr ©   (2004-11-16 12:59) [7]

Удалено модератором

---

← →
Electric   (2004-11-16 15:47) [8]

Удалено модератором

---

← →
Alex_Petr ©   (2004-11-16 22:55) [9]

Удалено модератором

---

← →
XProger ©   (2004-11-17 01:29) [10]

Вот пример:

Procedure SaveSettings;
Var
 Key : hKey;
 Dummy : Integer;
Begin
 If RegCreateKeyEx(hKey_Current_User, "Software\SilverStream\SSBoxes", 0, Nil, Reg_Option_Non_Volatile, Key_All_Access, Nil, Key, @Dummy) = Error_Success Then
 Begin
   RegSetValueEx(Key, "RoundedRectangles", 0, Reg_Binary, @RoundedRectangles, SizeOf(Boolean));
   RegSetValueEx(Key, "SolidColors", 0, Reg_Binary, @SolidColors, SizeOf(Boolean)); RegCloseKey(Key);
 End;
End;

Procedure LoadSettings;
Var
 Key : hKey;
 D1, D2 : Integer;
 Value : Boolean;
Begin
 If RegOpenKeyEx(hKey_Current_User, "Software\SilverStream\SSBoxes", 0, Key_Read, Key) = Error_Success Then
 Begin
   D2 := SizeOf(Value);
   If RegQueryValueEx(Key, "RoundedRectangles", Nil, @D1, @Value, @D2) = Error_Success Then RoundedRectangles := Value;
   If RegQueryValueEx(Key, "SolidColors", Nil, @D1, @Value, @D2) = Error_Success Then SolidColors := Value;
   RegCloseKey(Key);
 End;
End;


---

← →
Electric   (2004-11-18 12:18) [11]

Удалено модератором

---

Страницы: 1 вся ветка

Текущий архив: 2005.01.02;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.044 c