Sorry, war Mittagessen
)
Also den Ordner lasse ich mit CreateDir erstellen und diese verlangt am Ende des Strings ein "\". Das hatte ich letzte Woche glaube ich so getestet.
Delphi-Quellcode:
procedure TForm2.DirectoryEdit1AcceptDirectory(Sender: TObject;
var Value: String);
begin
IncludeTrailingBackslash(GetCurrentDir);
//IncludeTrailingPathDelimiter(GetCurrentDir);
//DirectoryEdit1.Directory:=IncludeTrailingPathDelimiter(GetCurrentDir);
//DirectoryEdit1.Caption:=IncludeTrailingPathDelimiter(GetCurrentDir);
end;
Hat alles leider nicht funktioniert.