本文整理自网络,侵删。
获取程序自身大小的函数
function GetExeSize: Int64;var SearchRec: TSearchRec;begin Result := -1; if FindFirst(Application.ExeName, faAnyFile, SearchRec) = 0 then Result := SearchRec.Size;end;
相关阅读 >>
Delphi下用cdo发送邮箱实例(授权码cdo发送邮箱的解决办法)
更多相关阅读请进入《Delphi》频道 >>