提取一个文件的文件名和扩展名

 取文件名  
  ExtractFileName(FileName);  
  取文件扩展名：  
  ExtractFileExt(filename);    
     
   
  取文件名，不带扩展名  
   
  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;