随笔分类 -  Delphi

四舍五入函数
摘要：引入math单元function RoundEx(Value: Extended; RoundMode: TFPURoundingMode = rmUp): Int64;var RM: TFPURoundingMode;begin RM := GetRoundMode; try SetR... 阅读全文

posted @ 2015-01-14 23:48 浮沉魅影 阅读(198) 评论(0) 推荐(0)

设置开机自启动函数
摘要：引入 Registryprocedure SetAutoRun(ok: boolean);var Reg:TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg:=TRegistry.Create; try ... 阅读全文

posted @ 2015-01-14 23:43 浮沉魅影 阅读(112) 评论(0) 推荐(0)

根据文件路径检测文件大小并检测是否正在被占用
摘要：function CheckFileSize(sPath: string): Int64;var FilePath: AnsiString; FStream:TFileStream; bOpen:Boolean; //判断文件FileName是否正在被打开/使用 function IsFi... 阅读全文

posted @ 2015-01-14 17:12 浮沉魅影 阅读(155) 评论(0) 推荐(0)

根据文件路径获取剩余磁盘空间
摘要：function GetFreeSize(filePath:String):Int64;var FreeBytesAvailableToCaller : TLargeInteger; FreeSize : TLargeInteger; TotalSize : TLargeInteger; D... 阅读全文

posted @ 2015-01-14 12:24 浮沉魅影 阅读(143) 评论(0) 推荐(0)

导航