---

Hej

Hvordan bruger man LOADKEY og SAVEKEY i delphi ?

uses registry;

var
myreg : tregistry;

begin
my:=tregistry.create;
myreg.RootKey := HKEY_LOCAL_MACHINE;
myreg.savekey('Software','c:\testreg');
myreg.destroy;
end;

Virker ikke.

---

Hej Ingolf

Ingolf skrev i meddelelsen <3c70f17e$0$10680$4d4eb98e@news.dk.uu.net>...
>Hej
>
>Hvordan bruger man LOADKEY og SAVEKEY i delphi ?
>
>uses registry;
>
>var
> myreg : tregistry;
>
>begin
> my:=tregistry.create;
> myreg.RootKey := HKEY_LOCAL_MACHINE;
> myreg.savekey('Software','c:\testreg');
> myreg.destroy;
>end;
>
>Virker ikke.
>
>

Hvis du bruger w9x virker det her. Der er godt nok problemer med
at slette nøglen igen, hvis man forsøger efter den er loaded. Jeg
får en fejlmeddelse:
"Der er opstået en fejl under sletning af nøglen" ???
(efter reboot kan den selvfølgelig slettes)

const
KeyFile = 'C:\Temp\Regsave';

procedure TForm1.Button1Click(Sender: TObject);
begin
with TRegistry.Create do begin
RootKey := HKEY_LOCAL_MACHINE;
if not SaveKey('Mit Program', KeyFile) then
ShowMessage('Kan ikke save regkey');
CloseKey;
Free
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with TRegistry.Create do begin
RootKey := HKEY_LOCAL_MACHINE;
if not LoadKey('Mit Program', KeyFile) then
ShowMessage('Kan ikke loade regkey');
CloseKey;
Free
end;
end;

Med venlig hilsen
Steen