Entschuldige, ich habe dir die falsche Funktion verlinkt. Eigentlich geht es ja darum, dass du den ParentPath vom Directory benötigst, mit dem du deine Prozedur GetFilesInDirectory() aufgerufen hast:
Delphi-Quellcode:
begin
dir := 'C:\Windows\System32\delphinia';
GetFilesInDirectory(dir, ...);
relPath := ExtractRelativePath(ExtractFilePath(dir), FileList[i]);
end;
Ob du es mit einer Funktion oder zu Fuß umsetzt, ist für das Ergebnis egal. Wenn du den Präfix mit Delete() wegschneidest, dann ist das für dich sicher akzeptabel. Die Funktion hat erst dann einen Wert für dich, wenn du deine Programmierung auf Wiederverwendung ausrichtest.