返回指定文件的文件名及扩展名
var
s:string;
begin
s:=ExtractFileName('D:\Program Files\Borland\Delphi7\Projects\Unit1.dcu');
showmessage(s);\\显示:Unit1.dcu
end;
var
s:string;
begin
s:=ExtractFilepath('D:\Program Files\Borland\Delphi7\Projects\Unit1.dcu');
showmessage(s);\\显示:'D:\Program Files\Borland\Delphi7\Projects
end;
posted on 2009-01-13 18:34
小叶子 阅读(2986)
评论(0) 编辑 收藏 引用 所属分类:
windows API函数