wert aus registry lesen

[woelfchen]

danke...nun funktioniert es!

hab' noch ein 'else' eingefügt (damit der Wert geschrieben wird, falls er nicht da ist) :

Delphi-Quellcode:

var
  regist: TRegistry;
begin 
  regist:=TRegistry.Create; 
  try 
    regist.RootKey := HKEY_CURRENT_USER; 
    if regist.OpenKey('Software\DirIcon\Folder', True) then 
    try 
      if regist.ValueExists('Anzahl') then 
        Anzahl := regist.ReadInteger('Anzahl')
      else
        regist.WriteInteger('Anzahl',0);
    finally
      regist.CloseKey;
    end; 
  finally 
    regist.Free; 
  end; 
end;