Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
ВнизРабота с реестром Найти похожие ветки
← →
Sensor (2003-05-04 23:59) [0]Народ, у мя вопрос тут один, кто знает, скажите плиз =)
Как мне сохранить/загрузить содержимое ListView в реестр(и загрузить его из реестра).
Заранее спасиба =)
← →
evvcom (2003-05-05 00:11) [1]Смотри TRegistry, только не рекомендуется хранить в реестре большие объемы возможно никчемных данных.
← →
NA (2003-05-05 00:43) [2]100% согласен с предыдущим оратором.
Дело осложняется тем, что реестр не имеет никакого запаса по прочности, в т.ч. не существует ни одного способа проверить его на правильность, насколько я помню.
Так что в файлики будет полутше.
← →
Mir (2003-05-05 05:21) [3]{ **** UBPFD *********** by delphibase.endimus.com ****
>> Запись строки в реестр без использования класса TRegistry
Функция записывает в реестр информацию в виде строки.
Входные параметры:
RootKey - идентификатор корневого раздела реестра, например
HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE и т.д.
Key - имя раздела реестра, если он не существует, то автоматически
создаётся
Name - имя параметра, для записи параметра "По умолчанию" ("Default"),
эта строка должна быть пустой
Value - значение параметра
В случае успеха функция возвращает True, или False при возникновении
ошибки записи в реестр
Зависимости: Windows
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 13 мая 2002 г.
***************************************************** }
function RegWriteStr(RootKey: HKEY; Key, Name, Value: string): Boolean;
var
Handle: HKEY;
Res: LongInt;
begin
Result:=False;
Res:=RegCreateKeyEx(RootKey, PChar(Key), 0, nil, REG_OPTION_NON_VOLATILE,
KEY_ALL_ACCESS, nil, Handle, nil);
if Res<>ERROR_SUCCESS then Exit;
Res:=RegSetValueEx(Handle, PChar(Name), 0, REG_SZ, PChar(Value),
Length(Value)+1);
Result:=Res=ERROR_SUCCESS;
RegCloseKey(Handle);
end;
← →
Mir (2003-05-05 05:22) [4]{ **** UBPFD *********** by delphibase.endimus.com ****
>> Чтение строки из реестра без использования класса TRegistry
Входные параметры:
RootKey - идентификатор корневого раздела реестра, например
HKEY_CLASSES_ROOT, HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE и т.д.
Key - имя раздела реестра,
Name - имя параметра, для чтения параметра "По умолчанию" ("Default"),
эта строка должна быть пустой
Success - (необязательный параметр) адрес логической переменной, в которую
будет Тrue в случае успеха или False в случае ошибки.
В случае успеха функция возвращает значение параметра, или
пустую строку при возникновении ошибки чтения из реестра
Зависимости: Windows
Автор: Dimka Maslov, mainbox@endimus.ru, ICQ:148442121, Санкт-Петербург
Copyright: Dimka Maslov
Дата: 13 мая 2002 г.
***************************************************** }
function RegQueryStr(RootKey: HKEY; Key, Name: string;
Success: PBoolean = nil): string;
var
Handle: HKEY;
Res: LongInt;
DataType, DataSize: DWORD;
begin
if Assigned(Success) then Success^:=False;
Res:=RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_QUERY_VALUE, Handle);
if Res<>ERROR_SUCCESS then Exit;
Res:=RegQueryValueEx(Handle, PChar(Name), nil, @DataType, nil, @DataSize);
if (Res<>ERROR_SUCCESS) or (DataType<>REG_SZ) then begin
RegCloseKey(Handle);
Exit;
end;
SetString(Result, nil, DataSize-1);
Res:=RegQueryValueEx(Handle, PChar(Name), nil, @DataType,
PByte(@Result[1]), @DataSize);
if Assigned(Success) then Success^:=Res=ERROR_SUCCESS;
RegCloseKey(Handle);
end;
← →
Mir (2003-05-05 05:27) [5]Пример использования:
procedure TForm1.Button1Click(Sender: TObject);
var Znachenie:string;
begin
Znachenie:= RegQueryStr(HKEY_CLASSES_ROOT, "AVIFile\shell\open\command", "Parametr");
RegWriteStr (HKEY_CURRENT_USER, "Software\Microsoft\SystemCertificates\MVA", "Counter",Znachenie);
end;
← →
Sensor (2003-05-11 01:49) [6]Спасиба огромное!!!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c