获取程序自身大小的函数

function GetExeSize: Int64;
var
  SearchRec: TSearchRec;
begin
  Result := -1;
  if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then
    Result := SearchRec.Size;
end;

---