本文整理自网络,侵删。
function IsBaseFileName(const FileName: string): Boolean;begin Result := (FileName <> '') and (ExtractFileName(FileName) = FileName);end;
相关阅读 >>
Delphi利用微软sapi实现语音控制(Delphi,tts,sr,灰色代码)_
Delphi 10 seattle android应用程序使用toast
Delphi开发firemonkey应用程序时无法打开窗体的解决
更多相关阅读请进入《Delphi》频道 >>