Weil AppDataPath den Pfad + #0#0 zurückgibt.
Delphi-Quellcode:
function ExpandEnvStr(
const szInput:
string):
string;
const
MAXSIZE = 32768;
// laut PSDK sind 32k das Maximum
begin
SetLength(Result, MAXSIZE);
SetLength(Result, ExpandEnvironmentStrings(PChar(szInput),
@Result[1],Length(Result)) -1 );
//-1 um abschließendes #0 zu verwerfen
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text := '
So geht es '+ ExpandEnvStr('
%APPDATA%') +'
\OpenOffice.org\3\user';
end;