• delphi 汉字转拼音

    在uses 单元下面加入ComObj uses下面加入下面代码: const PYMUSICCOUNT = 405; PyMusicCode: array [1..PYMUSICCOUNT] of string[6] = { 汉字基本发音表 } ( 'a', 'ai', 'an', 'ang', 'ao', 'ba', 'bai', 'ban', 'bang', 'bao', 'bei', 'ben', 'beng', 'bi', 'bian', 'biao', 'bie', 'bin', 'bing', ...

    技术文档678次阅读抢沙发
    Read more

  • delphi 鼠标模拟点击 填表

    获取当前鼠标坐标： procedure TForm1.Timer1Timer(Sender: TObject); var p:TPoint; begin GetCursorPos(p); label9.Caption:=inttostr(p.X ); label10.Caption:=inttostr(p.Y) ; end; 加上uses Clipbrd; 模拟点击并填表： procedure TForm1.denglu1Click(Sender: TObject); var x,y:integer; ...

    技术文档526次阅读抢沙发
    Read more

  • delphi WebBrowser 自动填表

    name填表: procedure TForm1.Button1Click(Sender: TObject); var text: OleVariant; doc: IHTMLDocument2; i,len:integer; begin web1.Navigate('http://baidu.com'); text := web1.OleObject.document.all.item( 'word',0); text.Value :='123'; end; 无name 自动点击: procedure TForm1. ...

    技术文档1,063次阅读抢沙发
    Read more

  • discuz首页n格 超适合默认模板

    X2.5最美首页N格，纯DIY， 最新修复版。站长必备！X2.5绝对可用，最新修复版，好不好用了就知道！ 不要错过精品哦！！ 安装方法：直接在论坛首页进入DIY “高级模式”，先点击清空，然后再点击导入 就行了哦——很简单吧哈哈。 我就不提供下载了,保存下面代码为.xml后按安装方法安装即可! <?xml version="1.0&quo ...

    技术文档, 资源共享481次阅读抢沙发
    Read more

  • wordpress 附件页地址伪静态

    在别人博客里掏出来的,效果还不错. 默认的附件页面伪静态链接是http://日志链接/attachment/attachment-name/ 这种链接又长又丑,所以就想美化下! 打开模板下的”functions.php”在”?>”前添加以下代码: //设置附件的固定链接 add_filter('attachment_link','v7v3_attachment_link',10,2); func ...

    技术文档, 资源共享679次阅读抢沙发
    Read more

  • discuz 分区伪静态(nginx)

    主要目的就是把论坛首页大分区的链接/forum.php?gid=1这种改为伪静态格式/forum-1.html这种格式。 1、添加Rewrite伪静态规则： RewriteRule ^(.*)/forum(\w+)\.html(\?(.*))*$ $1/forum\.php\?gid=$2&$4 2、修改\template\default\forum\discuz.htm 查找: <h2><a href="{if !empty($caturl)}$catur ...

    技术文档, 资源共享869次阅读抢沙发,
    Read more

  • 中易广告联盟v9模板制作

    专业承接中易广告联盟v9模板制作,收费便宜! 中易广告联盟不用我说,大家也知道是干什么的吧.这个就不多做介绍了。现阶段大多数广告联盟用的都是中易内核。但模板千篇一律官方蓝色。看都看腻了。 不像官方,修改模板要3800元! 我这里不用2000元,也不用1000元,只要888元. 帮你仿一个模板! 我们的服务都是保证到位的，亲可 ...

    资源共享857次阅读抢沙发
    Read more

  • Delphi中取出字符串中指定位置的几个字符

    比如我要读出一个字符串中 第5个字符是什么； 可以用下面函数，很方便。直接调用就可以了 。 uses StrUtils; Function SubStr(PStr : String; PPos, PLen : Integer) : String; Begin if PPos > Length(PStr) then Result := 'ERROR_OVERSTRING' {目标字符位置不应超过字符串长度} else if PLen < 1 then ...

    技术文档483次阅读抢沙发
    Read more