Форум: "WinAPI";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
Внизработа с реестром Найти похожие ветки
← →
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2005.01.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.032 c