Datei suchen u. Path dann in die Registry schreiben

[MrSpock]

Hallo m-werk,

Code:

...
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', ExtractFilePath(b));
      end;
    finally
      REG.CloseKey;
      REG.Free;
    end;
end;

oder

Code:

...
begin
  b:=ExtractFilePath(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;

Dabei sollte aber sicher gestellt sein, dass Label4 immer einen gültigen Dateinamen (inkl. Pfad) enthält.