2019年11月20日
开机启动
摘要： procedure TForm1.SetAutoRun(ok: boolean);var Reg: TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg := TRegistry.Create; try //创建一个新键 Reg.RootKey := HKEY_ 阅读全文
posted @ 2019-11-20 15:43 绿水青山777 阅读(141) 评论(0) 推荐(0) 编辑
获取本机IP
摘要： uses Winapi.WinSock; function GetLocalIpList(IPList: TStrings): Integer;type TaPInAddr = array [0 .. 10] of PInAddr; PaPInAddr = ^TaPInAddr;var HostNa 阅读全文
posted @ 2019-11-20 15:41 绿水青山777 阅读(321) 评论(0) 推荐(0) 编辑
MSSQL通用分页过程
摘要： USE [AiFashionDining]GO /****** Object: StoredProcedure [dbo].[pv_page_search] Script Date: 04/04/2018 18:20:07 ******/SET ANSI_NULLS ONGO SET QUOTED_ 阅读全文
posted @ 2019-11-20 15:29 绿水青山777 阅读(194) 评论(0) 推荐(0) 编辑
转：Delphi2010小写金额转大写金额的源代码
摘要： Delphi2010小写金额转大写金额的源代码发表于2009年12月17日由admin由于从Delphi2010开始支持大字符集，原来一个汉字占２个字节，现在Delphi2010中占一个字节，所以原函数在Delphi2010下已不能用了，现将原函数修改如下： function ToBigRMB(Nu 阅读全文
posted @ 2019-11-20 15:26 绿水青山777 阅读(154) 评论(0) 推荐(0) 编辑