Simpelt kald i registreringsdatabasen

Du kan bruge klassen TRegistry til at editere/kigge i registregings basen, men du må selv finde ud af hvilken nøgle du skal kigge under

Jeg fandt denne i help:

procedure TForm1.Button1Click(Sender: TObject);
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;

  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  {False because we do not want to create it if it doesn’t exist}
  Registry.OpenKey('MYKEY',False);
  showmessage(Registry.ReadString('VALUE1'));
  Registry.Free;
end;

Men.. um.. hvordan anvender man den? Skal man skrive sin strengværdi ind i stedet for 'MYKEY'? Kan du evt. smid et eksempel som finder et eller andet?

Sådan noget i denne stil :

procedure TForm1.Button1Click(Sender: TObject);
var
  Registry: TRegistry;
  S: string;
begin
  Registry:=TRegistry.Create;

  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  {False because we do not want to create it if it doesn’t exist}
  Registry.OpenKey('Software\microsoft\firefox\',False);
  showmessage(Registry.ReadString('installpath'));
  Registry.Free;
end;

Jeg ændrede det lidt:

  Registry.OpenKey('Software\Mozilla\Mozilla Firefox 1.0.7\bin\',False);
  showmessage(Registry.ReadString('PathToExe'));

Tror ikke Mozilla er glade for at blive Micro$oft underleverandører ;)

Men takker! Smid et svar.

Smid lige et svar så lukker jeg.

Jeg tillader mig at lukke så.

-