[dec]

Hola,

De memoria (*):

Código Delphi [-]
uses
  SysUtils;

function DirectoryName(filePath: string) : string;
begin
  result := ChangeFileExt(ExtractFileName(filePath), '');
end;

(*) Igual ni compila...