//文件路径获取文件名不带扩展名

Function ExtractFileNameNoExt(FileString: String): String;

Var

  FileWithExtString: String;

  FileExtString: String;

  LenExt: Integer;

  LenNameWithExt: Integer;

Begin

  FileWithExtString := ExtractFileName(FileString);

  LenNameWithExt    := Length(FileWithExtString);  FileExtString     := ExtractFileExt(FileString);   LenExt            := Length(FileExtString);

  If LenExt = 0 Then

     Begin

       Result := FileWithExtString;

     End

     Else

      Begin

       Result := Copy(FileWithExtString,1,(LenNameWithExt-LenExt));

      End;

 End;