delphi 获取指定文件路径中的文件名及扩展名

1. var filename:string;
2. filename:=ExtractFileName('路径');
3. 例如：1.txt:=ExtractFileName('c:\windows\1.txt');
4. var kuozhanming:string;
5. kuozhanming:=ExtractFileExt('路径');
6. 例如：.txt:=ExtractFileExt('c:\windows\1.txt'); 包含.（点）