本文整理自网络,侵删。
function IsBaseFileName(const FileName: string): Boolean;begin Result := (FileName <> '') and (ExtractFileName(FileName) = FileName);end;
相关阅读 >>
Delphi twebbrowser与嵌入youtube视频崩溃
Delphi 实现卸载windows应用程序(类似360软件管家-卸载程序)
Delphi 用 tbytesstream 类实现的读文件为十六进制字符的函数
更多相关阅读请进入《Delphi》频道 >>