获取程序自身大小的函数

为什么80%的码农都做不了架构师？>>>   

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

---

转载于:https://my.oschina.net/hermer/blog/319814