Hallo,
ich habe ein Problem mit der vorgeschlagenen Vorgehensweise. Ich bekomme zwar den Pfad, kann den aber dann nicht weiter verarbeiten. Mein Code
Delphi-Quellcode:
Function AppDataPath:String;
Var
S : String;
Begin
SetLength(S,ExpandEnvironmentStrings('%APPDATA%',nil,0));
If Length(S)>0 Then
ExpandEnvironmentStrings('%APPDATA%',PChar(S),Length(S))
Else
S:='';
Result:=S;
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='Was soll das '+AppDataPath+'\OpenOffice.org\3\user';
end;
Bringt mir immer nur "Was soll das C:\Dokumente und Einstellungen\UserAnwendungsdaten". Der von mir hinzugenommene Rest (\OpenOffice.org\3\user) erscheint nicht.
Was mache ich verkehrt?
Gruß, Alex