GetFileSize() 得到文件大小

 

{得到文件的大小 KB}

//调用 返回值:=GetFileSize(application.ExeName);

function GetFileSize(const FileName: string): string;
var
  SR: TSearchRec;
begin
  Result := '-1';
  if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then
  try
    Result := format('%d KB',[SR.Size div 1024]);
  finally
    FindClose(SR);
  end;
end;

通过 为知笔记 发布