本文整理自网络，侵删。
获取程序自身大小的函数
function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := SearchRec.Size;end;
相关阅读 >>
Delphi webbrowser不能复制粘贴问题的解决办法
Delphi 文件查找findfirst,findnext,findclose
更多相关阅读请进入《Delphi》频道 >>
