谢谢
解决方案 »
- 判断某条记录是否修改
- 工程检测到错误类EAccessViolation
- 刚开始学Delphi 请高手不厌其烦帮我解释一下 谢谢!
- 关于系统重新登录的代码问题
- 跨路由器用ADO连接MSSQL数据库的问题
- 下载了ODAC4。5,但是不会安装,那位大侠帮忙
- 简单问题:窗体不能用鼠标改变其大小??怎么设置属性?
- 有做过AUTOCAD二次开发的朋友吗?说说原理和思路·
- 一个DELPHI+SQL SERVER程序员需要掌握什么技能?请大家出十道题我做!做了这十道题我能达到基本的要求!
- 关于windows API函数?
- 建有一QQ群2044725.为Delphi志同道合的朋友提供个交流空间,有兴趣的可以进来交流,此群为永久固定群,还有15个空位
- 来者有分,delphi中画斜线时,怎么消除锯齿,否则太难看了?
本地文件大小
function FileGetSize(FileName:string): Int64;
var w32fd: TWin32FindData; h: THandle;
begin
Result := 0;
if FileName='' then Exit;
h := Windows.FindFirstFile(PChar(FileName),w32fd);
if h <> INVALID_HANDLE_VALUE then
with w32fd do Result := nFileSizeHigh * MAXDWORD + nFileSizeLow;
Windows.FindClose(h);
end;FTP文件大小
IndyFTP1.Size(FileName)http://lysoft.7u7.net