[ecfisa]

Hola.

Con la función ChangeFileExt.

Ejemplo:

Código Delphi [-]
var
  Nombre: string;
begin
   Nombre:= ChangeFileExt('AUTOEXEC.BAT','');
end;

Pero por favor la próxima vez para una nueva pregunta abrí un nuevo hilo, gracias.

Un saludo.