🚀 go-pugleaf

I can backup a part of registry with that code in win2000/Xp on NTFS
(BCB6), with necessary permission, but I can't restore it.I tried
loadkey,restorekey, regrestorekey,
regloadkey, but I Can't. Please help about code...

Regards.

      HANDLE hToken;
      LUID luid;
      TOKEN_PRIVILEGES tp = {0};
      TOKEN_PRIVILEGES oldtp = {0};
      DWORD dwSize = sizeof(oldtp);
      if( !OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES |
      TOKEN_QUERY,&hToken) )
      {
          ShowMessage("OpenProcessToken() failed ");
          return ;
      }
      TCHAR *privs[] = { SE_BACKUP_NAME };
      if( !LookupPrivilegeValue(NULL, privs[0], &luid) )
      {
          ShowMessage("LookupPrivilege() failed ");
          return ;
      }
      tp.PrivilegeCount = 1;
      tp.Privileges[0].Luid = luid;
      tp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
      if( !AdjustTokenPrivileges(hToken, FALSE, &tp,
sizeof(TOKEN_PRIVILEGES),
      &oldtp, &dwSize) )
      {
          ShowMessage("AdjustTokenPrivileges() failed ");
          CloseHandle (hToken);
          return;
      }
      TRegistry *Reg = new TRegistry;
      Reg->RootKey = HKEY_LOCAL_MACHINE;
      DeleteFile("c:\\001.reg");
      bool
f=Reg->SaveKey("\\SOFTWARE\\Microsoft\\WindowsNT\\CurrentVersion\\FontSubsti
tutes", "c:\\001.reg");
      if(!f)ShowMessage("Error");