获取系统环境变量-GetEnvironmentVariable
摘要:GetEnvironmentVariable是一个从调用该函数的进程的环境变量中返回指定的变量名值的函数,主要参数有lpName、lpBuffer等。 GetEnvironmentVariable是一个从调用该函数的进程的环境变量中返回指定的变量名值的函数,主要参数有lpName、lpBuffer等
阅读全文
posted @
2019-08-08 11:30
男人泪何滋味
阅读(1546)
推荐(0)
ip、手机号、身份证号归属地查询
摘要:很久以前写了个手机号归属地在线查询功能放在盒子上了,今天不小心打开盒子,发现还在,我都忘了。感谢 skaly 的回复,我又用有道的那个接口,写了个小例子,同时也会传到盒子上。delphi就这了,盒子加油吧!组件用到NativeXml可自行下载,盒子有,解析xml的,有道这个传回来的是gbk的编码.Unit1.pasunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, NativeXml, IdBaseComp..
阅读全文
posted @
2012-08-08 15:25
男人泪何滋味
阅读(413)
推荐(0)
返回字符在字符串中第n次出现的位置
摘要:记不住那么多,把自己写的东西放放上来做个备份!{------------------------------------------------------------------------------- 函数名: PosChar 作者: 日期: 2011.12.14 参数: SubStr: WideString; S: WideString; AIndex: Integer 返回值: Integer //返回参数SubStr 在 S 中第 Aindex 次出现的位置------------------------------------...
阅读全文
posted @
2011-12-14 09:58
男人泪何滋味
阅读(403)
推荐(1)
delphi保存字体设置
摘要:记得一年前软件里面用到字体设置时,想把字体信息保存到配置文件里面都是把相应的属性分开来保存一下,这样一直使用,最近想delphi自己的dfm文件也同样会保存这些信息,它又是怎样保存的呢。。用记事本打开dfm文件会看到类似这样的文本: object Label1: TLabel Left = 24 Top = 32 Width = 140 Height = 46 Caption = #20445#23384#23454#20363 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Hei...
阅读全文
posted @
2011-11-18 13:29
男人泪何滋味
阅读(1233)
推荐(1)