Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

Помогите с регистром!!!   Найти похожие ветки 

← →
Gefest80   (2005-10-07 00:02) [0]

Удалено модератором
Примечание: CПАМ

---

← →
Германн ©   (2005-10-07 01:11) [1]

А что. Эта функция обязана записывать какой-то файлик?

---

← →
GanibalLector ©   (2005-10-07 02:30) [2]

>D7, WinXP
Для данной ОС необходимо получить соответсвуюшие привелегии.И только потом выполнять ф-цию SaveKey. Более того,файл в который будет сохранена  информация из реестра НЕ ДОЛЖЕН СУЩЕСТВОВАТЬ!

Пример :

var
 hToken: THandle;
 dwLength: DWORD;
 tpNewState, tpPrevState: TOKEN_PRIVILEGES;
const RegName="D:\Reg.old";
begin
 if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES+TOKEN_QUERY, hToken) then
 begin
   if LookupPrivilegeValue(nil, "SeBackupPrivilege",tpNewState.Privileges[0].Luid) then
   begin
     tpNewState.PrivilegeCount := 1;
     tpNewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
     AdjustTokenPrivileges(hToken, False, tpNewState,SizeOf(TOKEN_PRIVILEGES), tpPrevState, dwLength);
     {Test is True.}
     with TRegistry.Create do
     try
       RootKey := HKEY_LOCAL_MACHINE;
       if FileExists(RegName) then
         DeleteFile(RegName);
       SaveKey("Software\Borland", RegName);
     finally
       Free;
     end;
     tpNewState.Privileges[0].Attributes := 0;
     AdjustTokenPrivileges(hToken, True, tpNewState,SizeOf(TOKEN_PRIVILEGES), tpPrevState, dwLength);
   end;
 end;
end;


---

← →
Brother ©   (2005-10-07 07:28) [3]

а регистор тут причем?

---

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

Форум: "Начинающим";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c