Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

Реестр 


vlv   (2001-12-27 20:49) [0]

Нет ли какой-нить готовой процедурки(компонента), сохраняющей реестр в файд?



SergVlad   (2001-12-28 00:26) [1]

Реестр это тоже файл.
Если надо, то копируй в новый.



OlegY   (2001-12-28 12:08) [2]

Вот функция сохранения раздела и подразделов в TStrings str.
Она сделана для CBuilder, но её очень просто переписать для Delphi:


bool SaveSubKey(TRegistry *reg, AnsiString key, TStrings *str)
{
byte data[50 * 1024]; //50k
TStrings *Keys = new TStringList();
TStrings *Values = new TStringList();

reg->OpenKey(key,false);
str->Add("");
str->Add("[HKEY_LOCAL_MACHINE" + key + AnsiString("]"));


reg->GetValueNames(Values);
reg->GetKeyNames(Keys);
for(int i = 0; i < Values->Count; i++)
{
TRegDataType type = reg->GetDataType(Values->Strings[i]);
int size = reg->GetDataSize(Values->Strings[i]);
AnsiString value = "\"" + Values->Strings[i] + AnsiString("\"=");
switch(type)
{
case rdUnknown:
case rdString:
case rdExpandString:
value += "\"" + reg->ReadString(Values->Strings[i]) + AnsiString("\"");
break;
case rdInteger:
value += "dword:" + IntToHex(reg->ReadInteger(Values->Strings[i]),8);
break;
case rdBinary:
reg->ReadBinaryData(Values->Strings[i],data,sizeof(data));
value += "hex:";
for(int j = 0; j < size; j++)
{
if(j) value += ",";
value += IntToHex(data[j],2);
}
break;
}

str->Add(value);
}

for(int i = 0; i < Keys->Count; i++)
{
AnsiString Subkey = key;
Subkey += "\\";
Subkey += Keys->Strings[i];
SaveSubKey(reg,Subkey,str); //Рекурсивный вызов самой себя
}

delete Keys;
delete Values;
return true;
}




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.017 c
3-90758           Ptr                   2002-02-27 14:52  2002.03.28  
MasterSource... Кто подскажет в чем проблема?


3-90782           zombi                 2002-03-04 04:48  2002.03.28  
поиск подходящих величин в момент ввода?


1-90872           zam                   2002-03-17 13:11  2002.03.28  
Как вывести диалог selectdirectory не используя qtintf.dll?


6-91015           Victoz                2002-01-16 12:12  2002.03.28  
Как узнать название сети?


1-90970           Art1                  2002-03-14 09:40  2002.03.28  
Где найти компонент для чтения и записи XLS файлов?