delphi 獲取指定文件路徑中的文件名及擴展名

var filename:string;

filename:=ExtractFileName('路徑');

例如：1.txt:=ExtractFileName('c:\windows\1.txt');

var kuozhanming:string;

kuozhanming:=ExtractFileExt('路徑');

例如：.txt:=ExtractFileExt('c:\windows\1.txt');   包含.（點）