zu %appdata% in String Variable navigieren

[himitsu]

jupp

Delphi-Quellcode:

function ExpandEnv(const S: String): String;
var i: Integer;
begin
  i := ExpandEnvironmentStrings(PChar(S), nil, 0);
  SetLength(Result, i - 1);
  ExpandEnvironmentStrings(PChar(S), PChar(Result), i);
end;