Obtiene la extensión de un fichero (incluido el ".").

Ejemplo de utilización:

function extraerSoloNombreFichero (fichero : string) : string;

var

  ficheroFinal : string;

begin

  ficheroFinal := ExtractFileName(fichero);

  ficheroFinal := copy (ficheroFinal, 1, pos (ExtractFileExt (ficheroFinal), ficheroFinal) - 1);

  Result := ficheroFinal;

end;

Funciones Delphi