Teilstruktur der Registry in einer Textdatei speichern

[Orbmu2k]

Hab das mir RegSaveKey mal probiert ... das speichert leider nur binäre reg Files die man dann nur manuell mit regedit importieren kann

Delphi-Quellcode:

function ExportBinaryRegKey(RootKey:HKEY; KeyPath, TargetFilename: String):boolean;
var
  rl: Cardinal;
  hToken: Cardinal;
  tkp: TOKEN_PRIVILEGES;
  key:HKEY;
  regres:Integer;
begin
  Result := True;
  if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
  begin
    Result := False;
    Exit;
  end else
  begin
    if LookupPrivilegeValue(nil, 'SeBackupPrivilege', tkp.Privileges[0].Luid) then
    begin
      tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      tkp.PrivilegeCount := 1;
      AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
      if GetLastError <> ERROR_SUCCESS then
      begin
        Result := False;
        Exit;
      end;
    end else
    begin
      Result := False;
      Exit;
    end;
  end;
  regres := RegOpenKey(RootKey,PAnsiChar(KeyPath),key);
  if regres <> ERROR_SUCCESS then
  begin
    Result := False;
    Exit;
  end;
  regres := RegSaveKey(key,PAnsiChar(TargetFilename),nil);
  if regres <> ERROR_SUCCESS then
  begin
    Result := False;
    Exit;
  end;
  regres := RegCloseKey(key);
  if regres <> ERROR_SUCCESS then
  begin
    Result := False;
    Exit;
  end;
end;

Habe aber bei den Schweitzern mal was gefunden -> Siehe Anhang