请问取文件大小和时间的方法或函数,请望大家给于详细的答复,在下不胜感激。
解决方案 »
- delphi 调用 C++写的DLL 的参数问题
- 登陆之后,MDI框架子窗体找不到主窗体
- 求助:利用 IdFTPServer 建立FTP服务器,谢谢!
- ----------大家来看一个往多页面浏览器添加按钮的问题,100分!UP有分!----------
- 高分!~~~~~~请各位高手帮忙解决!~在线等!~
- 有关动态创建控件的问题,急急急....在线等!!!分不够再加
- 500分求平衡二叉树的相关源码.. 谢谢~
- 要怎么做可以使WAV的播放速度可以控制呢??
- 请问:怎么提高 Sql Server查询速度
- DOS下如何截图??请高手指点
- 哪个属性设置dbgrid的标题不可以移动.
- 一个动态连接库的问题
var
F: File;
begin
AssignFile(F, FileName);
reset(F,1);
Result := FileSize(F);
CloseFile(F);
end;
f:Longint;
FSize:integer;
FDateTime:TDateTime;f:=FileOpen(FileName,fmOpenRead);
FDateTime:=FileDateToDateTime(FileGetDate(f));
FSize:=FileSeek(PFile,0,2);
FileClose(f);
var
f:file of byte;
i:integer;
begin
AssignFile(f,'c:\Netlog.txt');
Reset(f);
try
i:=trunc(filesize(f)/1024);
showmessage(inttostr(i));
finally
CloseFile(f);
end;
end;
var
F : Cardinal;
d : DWORD;
begin
F := CreateFile('C:\aa.txt',0,FILE_SHARE_READ, 0,OPEN_ALWAYS ,FILE_ATTRIBUTE_NORMAL ,0);
if F <> INVALID_HANDLE_VALUE then
begin
D := GetFileSize(F, nil);
showmessage(floattostr(d) + 'Byte');
end;
Showmessage(DatetoStr(FileDateToDateTime(FileAge('C:\aa.txt'))));end;