ExtractFileName(文件完整路径 含文件名)例:procedure TForm1.Button1Click(Sender: TObject);begin if OpenDialog1.Execute then begin showmessage(ExtractFileName(OpenDialog1.FileName)); end;end;以上例子为:当点击Button1时,弹出选择文件后,显示所选的文件名称(含扩展名)。