Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.10;
Скачать: CL | DM;

Вниз

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

 
Seldon   (2003-01-10 22:15) [0]

Здрасьте!
Мастера, как сохранить ветку реестра в файл?


 
Rouse_ ©   (2003-01-10 22:43) [1]

Вот, думаю переписать на дельфи сможешь

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;
}

Желаю успехов


 
Seldon   (2003-01-10 23:01) [2]

Попробую



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

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

Наверх




Память: 0.47 MB
Время: 0.026 c
14-30119
PSERG
2003-02-17 14:09
2003.03.10
Инсталяция пакетов


3-29751
Num Lock
2003-02-14 08:45
2003.03.10
Как заблокировать локальную всю БАЗУ данных


1-29883
OlegKrt
2003-02-26 13:51
2003.03.10
Окно Excel в MDI приложении


4-30179
viper
2003-01-20 21:27
2003.03.10
Запущено ли приложение...


1-29802
Альф
2003-02-27 15:45
2003.03.10
Уважаемые :) а где можно почитать о использовании OleInitialize ?