AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

REG-Datei importieren

Ein Thema von Ghostwalker · begonnen am 12. Feb 2007 · letzter Beitrag vom 12. Feb 2007
Antwort Antwort
Ghostwalker

Registriert seit: 16. Jun 2003
Ort: Schönwald
1.299 Beiträge
 
Delphi 10.3 Rio
 
#1

REG-Datei importieren

  Alt 12. Feb 2007, 14:52
Hallo,

ich hab folgendes Problem:

Ich möchte eine REG-Datei in die Registry in einem von mir festgelegten Pfad importieren.
Dazu lege ich mit RegCreateKey einen Unterschlüssel an (funktioniert), unter dem die Daten
aus der Reg-Datei importiert werden sollen.

Zum Importieren selbst verwende ich Luckie's routine "RegLoadKeyFromFile" (leicht abgewandelt, so
das er auf NT-Systemen auch RegLoadkey verwendet, statt regrestorekey).

Delphi-Quellcode:
function RegLoadKeyFromFile(Key: HKEY; const SubKey, Filename: string): DWORD;
const
  SE_BACKUP_NAME = 'SeBackupPrivilege';
  SE_RESTORE_NAME = 'SeRestorePrivilege';
var
  PrevBackup: Boolean;
  PrevRestore: Boolean;
  KeyHandle: HKEY;
  ShortName: array[0..MAX_PATH] of Char;
begin
  Result := SetPrivilege(SE_BACKUP_NAME, True, PrevBackup);
  if (Result = ERROR_SUCCESS) then
    try
      Result := SetPrivilege(SE_RESTORE_NAME, True, PrevRestore);
      if (Result = ERROR_SUCCESS) then
        try
          if (GetVersion() > $80000000) then
          begin // Win9x (FIXME: Test it! - and see RegReplaceKey)
            if (GetShortPathName(PChar(Filename), ShortName, MAX_PATH) = 0) then
              Result := GetLastError()
            else
              Result := RegLoadKey(Key, PChar(SubKey), ShortName);
          end
          else
          begin // WinNT (FIXME: Load RegRestoreKey dynamically!)
            KeyHandle := 0;
            Result := RegOpenKeyEx(Key, PChar(SubKey), 0, MAXIMUM_ALLOWED, KeyHandle);
            if (Result = ERROR_SUCCESS) then
              try
                Result := RegLoadKey(KeyHandle, pchar(SubKey),PChar(Filename));
              finally
                RegCloseKey(KeyHandle);
              end;
          end;
        finally
          if (not PrevRestore) then
            SetPrivilege(SE_RESTORE_NAME, PrevRestore, PrevRestore);
        end;
    finally
      if (not PrevBackup) then
        SetPrivilege(SE_BACKUP_NAME, PrevBackup, PrevBackup);
    end;
end;
Allerdings bekomme ich die Fehlermeldung zurück, das das Format der Reg-Datei nicht stimmen
würde. Und das mit einer Reg-Datei die ich vorher mit Regedit exportiert hab ??????

Daraufhin hab ich einige Tests gemacht.

Zuerst hab ich in der Reg-Datei die Schlüssel so angepasst, das sie auf den neuen Schlüssel
passen (HKEY_xxxx durch meinen Pfad ersetzt). -> Gleicher Fehler

Dann einfach nur HKEY_xxxx aus den Key's entfernt. -> Gleicher Fehler.

Woran kann das liegen ????
Uwe
e=mc² or energy = milk * coffee²
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

Re: REG-Datei importieren

  Alt 12. Feb 2007, 15:15
Die API Funktionen erwarten eine Reg-Datei im Binärformat, während der Export über Regedit Text-Dateien erzeugt. Exportiere sie auch mit den API-Funktionen oder oder ruf den Kommandozeile Registryeditor mit entsprechenden Parametern auf.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.105 Beiträge
 
Delphi 11 Alexandria
 
#3

Re: REG-Datei importieren

  Alt 12. Feb 2007, 15:16
Moin Ghostwalker,

Zitat von Ghostwalker:
Und das mit einer Reg-Datei die ich vorher mit Regedit exportiert hab ??????
Du solltest Dir mal MSDN-Library durchsuchenRegSaveKey anschauen, bzw. eine Datei, die damit gesichert wurde.
Für letzteres benötigst Du dann aber einen Hexviewer, denn es handelt sich nicht um eine Textdatei.
RegSaveKey ist das Gegenstück zu RegLoadKey.
Der Export mit RegEdit hat damit nichts zu tun.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Ghostwalker

Registriert seit: 16. Jun 2003
Ort: Schönwald
1.299 Beiträge
 
Delphi 10.3 Rio
 
#4

Re: REG-Datei importieren

  Alt 12. Feb 2007, 15:42
Danke, Das Hilft doch weiter
Uwe
e=mc² or energy = milk * coffee²
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:04 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz