Datei suchen u. Path dann in die Registry schreiben

[m-werk]

Hi, und wo baue ich diesen code ein?

Zum Aktualisieren sieht mein Code so aus:

Code:

procedure TForm1.AktualisierenClick(Sender: TObject);
var
REG:TRegistry;
b:string;
begin
b:=Form1.Label4.Caption;
  REG:=TRegistry.Create;
  try
    REG.RootKey := HKEY_CURRENT_USER;
    if REG.OpenKey('Software\AriusDB\SettingsDB', True) then
      begin
      REG.WriteString('DBPath', b);
      end;
    finally
      REG.CloseKey;
      REG.Free;
    end;
end;