/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
SaveKey og Loadkey i Tregistry
Fra : Ukendt


Dato : 18-02-02 13:20

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.



 
 
Steen Jensen (18-02-2002)
Kommentar
Fra : Steen Jensen


Dato : 18-02-02 22:28

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




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste