Zitat von
schöni:
Wußte gar nich, das es so ne Funktion gibt.
Ich weiß nicht, ob es in Delphi schon eine fertige gibt, könnte eigentlich auch sein, aber diese ist selber geschrieben, sowas geht nämlich auch
Statt
if Path[Length(Path)]<>'\' then Path := Path + '\';
kannst du auch
Path := IncludeTrailingBackslash(Path);
nutzen.
Der Aufruf von
ExtractFilePath(Current);
Wird nicht viel machen, denn diese Funktion liefert den geänderten Wert zurück und ändert nicht direkt den Parameter. Wenn, dann sollte ein aufruf bspw. so aussehen:
Current := ExtractFilePath(Current);
Lass dir dochmal (bspw. mit ShowMessage()) den Pfad ausgeben, dann siehst du was falsch läuft.
Und zum Beenden kannst du auch einfach
Close;
nehmen.