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

posted on 2011-11-10 14:44  万一  阅读(3102)  评论(11编辑  收藏  举报