Schlüssel aus der Registry exportieren

[n3m0]

thx @Lucki!

bisher konnte ich nur zwei unterschiede zu meinem quelltext
feststellen, also in der procedure RegLoadKeyFromFile und
zwar diese zeilen:

Code:

Return := SetPrivilege(SE_BACKUP_NAME, True, PreviousState);

Code:

SetPrivilege(SE_BACKUP_NAME, PreviousState, PreviousState);

ich habe sie ergänzt, bzw geändert jedoch ohne das das irgend
einen erfolg mit sich gebracht hätte .. :/
evtl hab ich nochwas wichtiges in deinem programm übersehen.
ich werd nochmal durchschauen!

trotzdem danke nochmal!

-------------EDIT---------------

BUAH, ich depp man, hab grad nen echt langen edit beitrag geschrieben,
dann kam ne private message und ich hab draufgeklickt und zack
beitrag weg (

also nochmal aber diesmal in kurzform:

Ich hab mir deinen quelltext durchgelesen, kann jedoch zu
meiner funktionsweise sowohl im inneren der proceduren / Funktionen
als auch in den schnittstellen keine unterschiede feststellen.
ich habe jedoch nen fehler in deinen code gefunden, wenn mich
nicht alles täuscht:

Code:

....
         for i := 102 to 109 do
          begin
            if SendDlgItemMessage(hApp, i, BM_GETCHECK,0,0) = BST_CHECKED then
            begin
              ....
              dwResult := RegSaveKeyToFile(HKEY_CURRENT_USER, Subkey, Path);
              ....
            end;
          end;
          for i := 110 to 111 do
          begin
            if SendDlgItemMessage(hApp, i, BM_GETCHECK,0,0) = BST_CHECKED then
            begin
              ....
              dwResult := RegSaveKeyToFile(HKEY_LOCAL_MACHINE, Subkey, Path);
              ....
            end;
          end;
        end;
        IDC_BTN_IMPORT:
        begin
          for i := 102 to 109 do
          begin
            if SendDlgItemMessage(hApp, i, BM_GETCHECK,0,0) = BST_CHECKED then
            begin
              ....
              dwResult := RegLoadKeyFromFile(HKEY_CURRENT_USER, Subkey, Path);
              ....
            end;
          end;
          for i := 110 to 111 do
          begin
            if SendDlgItemMessage(hApp, i, BM_GETCHECK,0,0) = BST_CHECKED then
            begin
              ....
              if FileExists(Path) then
                DeleteFile(@Path[1]);
              ....
              dwResult := RegSaveKeyToFile(HKEY_LOCAL_MACHINE, Subkey, Path);
              ....
            end;
          end;

Da es sich in der untersten for-to-do schleife um eine schleife
zum Importieren handelt, müsste die Anweisung heissen "RegLoadKeyFromFile".

auch die if-abfrage müsste dann noch geändert werden:

Code:

              if FileExists(Path) = FALSE then
                RaiseLastError(hApp);

aber weiter bin ich trotzdem noch nicht

bye philipp