已经知道文件的路径和文件名,如何获得文件大小,文件类型任意
解决方案 »
- directoryoutline和filelistbox如何关联?
- dbgrid组件怎么显示access表??~
- 问一个比较小白的问题!
- 请问怎么在win7里结束一个程序?
- 如何读取数据库的字段名???急,在线等待
- 请教大家一个程序启动时遇到的问题!
- Delphi 7 的TXPManifest 怎么用?
- 我学Delphi半年的过程, 大家看看有什么得失, 建议下一步如何走?
- how to change the 'caption' of the pagecontrol control
- 初学者问题,望高手帮忙!
- FASTREPORT如何直接打印!??
- 如何去掉Form从Application 继存的图标?
f:Longint;
FSize:integer;
FDateTime:TDateTime;f:=FileOpen(FileName,fmOpenRead);
FSize:=FileSeek(PFile,0,2);
FileClose(f);
var
HFILE: THandle;
begin
HFILE := CreateFile(PChar(AFilename), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
if HFILE <> INVALID_HANDLE_VALUE then
begin
Result := GetFileSize(HFILE, nil);
CloseHandle(HFILE);
end
else
Result := 0;
end;