本文整理自网络,侵删。
stmp := 'E:\Delphi\test1.txt'
stmp:= ExtractFileName(stmp); //文件名
stmp:= ExtractFilePath(stmp); //文件路径
相关阅读 >>
Delphi shgetfileinfo函数获取任何文件大图标
Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测
更多相关阅读请进入《Delphi》频道 >>