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