摘要： function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := SearchRec.Size;end; 阅读全文