Delphi获取相对路径的文件名（不带路径）

2025-05-12 21:20:55

推荐回答（3个）

回答（1）：

ExtractFileName(文件完整路径含文件名)

例：
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
showmessage(ExtractFileName(OpenDialog1.FileName));
end;
end;

以上例子为：当点击Button1时，弹出选择文件后，显示所选的文件名称（含扩展名）。

回答（2）：

ExtractFileName(extractfilepath(application.ExeName)+'jpgf'+'.jpg')

回答（3）：

ShowMessage(ExtractFileDir(Application.Exename)); // 如: c:\temp
ShowMessage(ExtractFilePath(Application.Exename)); // 如: c:\temp\