获得 文件 大小 。 获得本软件大小 呵呵

function GetFileSize2(const FileName: string): Int64;
var
SR: TSearchRec;
begin
Result := -1;
if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then
try
Result := SR.Size;
finally
System.SysUtils.FindClose(SR);
end;
end;