当前位置： 首页 > 技术文档

  • delphi 延迟执行程序代码

    delphi 延迟执行程序代码

    用sleep来延迟执行，结果程序假死！~ 下面这段代码彻底解决假死的问题。 procedure TForm1.delay(msecs:integer); var Tick: DWord; Event: THandle; begin Event := CreateEvent(nil, False, False, nil); try Tick := GetTickCount + DWord(msecs); while (msecs > 0) and (MsgWaitForMu ...

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

  • delphi WebBrowser 网页源码

    delphi WebBrowser 网页源码

    一：先在uses添加 mshtml 并在事件中添加变量 uses mshtml var ms: TMemoryStream; Doc: IHtmlDocument2; 二：这样就可以显示完整的源码,并且是完全一样的源码 tag:=0; Web1.Navigate(memo3.Lines.Strings[strtoint(edit11.text)]); while(tag=0) do Application.ProcessMessages; Applicatio ...

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

  • Delphi WebBrowser当前窗口打开新网页

    Delphi WebBrowser当前窗口打开新网页

    默认在webbrowser打开新窗口 会自动弹出来。 如何让他始终在webbrowser打开呢？ 先在 Web1NewWindow2事件中加入： procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch; var Cancel: WordBool); begin PpDisp := WebBrowser2.Application; end; 然后在Web2BeforeNavigate2事 ...

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

  • delphi 汉字转拼音

    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 鼠标模拟点击 填表

    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 自动填表

    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格 超适合默认模板

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

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

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

  • wordpress 附件页地址伪静态

    wordpress 附件页地址伪静态

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

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