speicherpfad als variable

[ichbins]

Ohne Datei geht es diesbezüglich dass du den Wert in die Registry speicherst.

Delphi-Quellcode:

uses
..., registry,

[...]

///speichern
var
  R: TRegistry;
begin
  R := TRegistry.Create(KEY_WRITE);
  try
    R.RootKey = HKEY_CURRENT_USER;
    R.OpenKey('Software\mr-unbekannt_software\programm1\', True);
    R.WriteString('Pfad',STRINGDENDUSPEICHERNWILLST);
  finally
    R.Free;
  end;
end;

///laden

var
  R: TRegistry;
begin
  R := TRegistry.Create(KEY_READ);
  try
    R.RootKey = HKEY_CURRENT_USER;
    R.OpenKey('Software\mr-unbekannt_software\programm1\', False);
    STRINGVARIABLE:=R.ReadString('Pfad');
  finally
    R.Free;
  end;
end;

allerdings haben viele User was dagegen wenn irgendwelche Programme was in ihre Registry speichern, weil die Registry komplett in den RAM geladen ist und wenn sie vergrößert wird eben auch der RAM-Bedarf steigt bzw. die Performance sinkt. Aber dazu gibt es eine Unmenge an Diskussionen.


Speichern in eine Datei:

Delphi-Quellcode:

//Speichern
var
  t:textfile;
begin
  assignfile(t,changefileext(application.exename,'.ini'));
  rewrite(t);
  writeln(t,STRINGDENDUSPEICHERNWILLST);
  closefile(t);
end;

//Laden
//Speichern
var
  t:textfile;
begin
  assignfile(t,changefileext(application.exename,'.ini'));
  if not fileexists(changefileext(application.exename,'.ini')) then exit;
  reset(t);
  readln(t,STRINGVARIABLE);
  closefile(t);
end;