Oh...
Jetzt, wo du's sagst...
Nach ein bischen rumprobieren habe ich eine gute kombination gefunden:
Delphi-Quellcode:
procedure TForm5.Label2Click(Sender: TObject);
var max,lang,backs:integer;
pathtemp:string;
begin
if SelectDirectory('Ordner wählen', '', CoverPfad) then //Ein OrdnerAuswahlFenster öffnet sich
begin
Label2.Caption:=ShortPath(CoverPfad,1,CountBackSlashes(CoverPfad)-2); //weist dem Label2 den Verkürzten Pfad zu
end;
end;
Ich danke euch für die hilfe!!!
Gruß, dopeline