四舍五入函数
摘要：
引入math单元function RoundEx(Value: Extended; RoundMode: TFPURoundingMode = rmUp): Int64;var RM: TFPURoundingMode;begin RM := GetRoundMode; try SetR... 阅读全文
posted @ 2015-01-14 23:48 浮沉魅影 阅读(187) 评论(0) 推荐(0) 编辑
设置开机自启动函数
摘要：
引入 Registryprocedure SetAutoRun(ok: boolean);var Reg:TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg:=TRegistry.Create; try ... 阅读全文
posted @ 2015-01-14 23:43 浮沉魅影 阅读(99) 评论(0) 推荐(0) 编辑
HTML5 基础知识（二）
摘要：
声明页面为HTML5文档其中en是页面内容默认语言的代码 空格与斜杠是可选的，定义文档编码格式为utf-8 标签之间将包含页面的标题结束页面文档的头部标签之间存放页面内容部分 结束页面在文档head部分，通常要指明页面标题，提供为搜索引擎准备的关于页面本身的信息，加载样式表，... 阅读全文
posted @ 2015-01-14 21:12 浮沉魅影 阅读(158) 评论(0) 推荐(0) 编辑
根据文件路径检测文件大小并检测是否正在被占用
摘要：
function CheckFileSize(sPath: string): Int64;var FilePath: AnsiString; FStream:TFileStream; bOpen:Boolean; //判断文件FileName是否正在被打开/使用 function IsFi... 阅读全文
posted @ 2015-01-14 17:12 浮沉魅影 阅读(150) 评论(0) 推荐(0) 编辑
根据文件路径获取剩余磁盘空间
摘要：
function GetFreeSize(filePath:String):Int64;var FreeBytesAvailableToCaller : TLargeInteger; FreeSize : TLargeInteger; TotalSize : TLargeInteger; D... 阅读全文
posted @ 2015-01-14 12:24 浮沉魅影 阅读(132) 评论(0) 推荐(0) 编辑
