Frage zur Registry

[markus lemcke]

Hallo,

bin leider noch immer nicht so firm in sachen registry!
wenn ich einen registry-wert habe, komme ich dann irgendwie auf den namen dieses wertes?

Gruß

Markus

[Thomas Melchert]

Hallo Markus,

das wird nicht gehen. Du musst schon den Namen des Keys wissen, um an den Wert heranzukommen.

Gruß
Thomas
<a href="http://www.kalenderlexikon.de" target="_blank">kalenderlexikon.de</a&gt

[markus lemcke]

hi thomas,

hast recht, habe mir ne funktion gebastelt!

Gruß

Marku

[Andre Mosinski]

Hallo Marcus,

wie sieht diese Funktion aus?

MFG
Andr&#233

[markus lemcke]

so sieht sie aus:

<pre>
function LeseNamenVonWert(AKey,Wert: String) : String;
var
Reg: TRegIniFile;
SlWerte : TStringlist;
i : integer;
begin
result := '';
SlWerte := TStringList.create;
{$IFDEF S}
Reg := TRegIniFile.Create(HKEY_CURRENT_USER);
Reg.RootKey := HKEY_CURRENT_USER;
{$ELSE}
Reg := TRegIniFile.Create(HKEY_LOCAL_MACHINE);
Reg.RootKey := HKEY_LOCAL_MACHINE;
{$ENDIF}
try
reg.ReadSectionValues(AKey,SlWerte);
for i := 0 to SlWerte.Count-1 do
begin
if pos(trim(Wert),trim(SlWerte[i])) > 0 then
begin
result := STRElement(SlWerte[i],'=',1);
end;
end;

finally
reg.Free;
SlWerte.Free;
end;
end;
</pre>
die compilerschalter sind firmenspezifisch

Gruß

marku

[Andre Mosinski]

Danke Marku

[markus lemcke]

kein problem