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