Schnell getippt (aber ungetestet):
Delphi-Quellcode:
function GetFileName(Path : String) : String;
var
temp : String;
begin
temp := ExtractFileName(Path);
Delete(temp, length(temp)-3, 4);
result := temp;
end;
Aufruf:
ShowMessage(GetFilename('C:\blabla\blalbajdkj\mp3name.mp3'));