获取程序自身大小的函数


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

你可能感兴趣的:(获取程序自身大小的函数)