var
vSearchRec: TSearchRec;
begin
FindFirst('<文件名>', faAnyFile, vSearchRec);
Caption := IntToStr(vSearchRec.Size);
FindClose(vSearchRec);
end;
vSearchRec: TSearchRec;
begin
FindFirst('<文件名>', faAnyFile, vSearchRec);
Caption := IntToStr(vSearchRec.Size);
FindClose(vSearchRec);
end;
解决方案 »
- Teechart和fastreport安装问题
- 问一下关于treeview的问题!
- $80000000 是什么意思呀?
- 公司发下任务,请cddn里delphi兄弟,帮帮忙
- 如何实现接口的多重继承.急呀!!!
- 请教:怎样使用TIME函数?
- 那里有delphi的webservice 的 wizard???
- 在DELPHI中为什么很多表示文件路径的字符串需要转换成PCHAR类型
- winzip文件坏了,有没有修复?哪位知道请尽快,要不今晚就要重复劳动了
- KyLix (Delphi for Linux) bata3 (2001.1.31发布)http://go.163.com/~gotolinux
- 调查一下,大家编写有关数据库方面的程序时,是用bde控件,还是用ado控件。
- 怎样将数据库和基于上面的应用程序一起打包?
var
SearchRec: TSearchRec;
begin
try
if FindFirst(ExpandFileName(FileName), faAnyFile, SearchRec) = 0 then
Result := SearchRec.Size
else Result := -1;
finally
SysUtils.FindClose(SearchRec);
end;
end;
vSearchRec: TSearchRec;
begin
FindFirst('<文件名>', faAnyFile, vSearchRec);
Caption := IntToStr(vSearchRec.Size);
// vSearchRec.FindData.ftCreationTime//创建时间
// vSearchRec.FindData.ftLastAccessTime//访问时间
// vSearchRec.FindData.ftLastWriteTime//修改时间
FindClose(vSearchRec);
end;