上一页 1 ··· 3 4 5 6 7 8 9 下一页
摘要: 将一下代码贴在你需要的设置提醒的地方。实例图:这个需要晚上23:00之后和凌晨6:00之前才能看到,呵呵 阅读全文
posted @ 2013-02-19 16:51 冰意 LceMeaning 阅读(170) 评论(0) 推荐(0)
摘要: 有很多站长可能都有过这样的经历,不管是自己改的程序或者是自己写的,在运行时可能会在浏览器左下角出现“网页上有错误”的感叹号提醒标志,双击后会出现XX页面XX行XX错误,有些是显而易见的,稍作修改就能改正,但有些任你如何调试都不能找到,但偏偏程序是能正常完成你所期望的功能,也没有出错。这种情况下,有些完美主义的站长朋友就希望把这个错误屏蔽掉,我也遇到过这种情况,可能是我功夫不到家,还不能搞定人家的程序,所以苦思无果之下找到以下方法。如果网页上的代码运行正常,程序结果正常,你完全可以忽略这些问题,把IE左下脚那个讨厌的网页上有错误,如果浏览你网页的网友的IE没有关闭禁止页面调试功能,那么还会弹出调 阅读全文
posted @ 2013-02-19 16:45 冰意 LceMeaning 阅读(363) 评论(0) 推荐(0)
摘要: 针对script添加type=”hidden”属性如cnzz的统计代码:添加后:更简单,建立一个隐藏层统计代码这两种方法是我见到的最简单的,其他什么下载JS到本地再修改指向什么的太麻烦。当然不仅仅限于隐藏统计代码,你可以隐藏其他任何不想让别人看到的东西。可能SEO会跟你说隐藏可能对搜索引擎不友好,或者可能会被惩罚。所以看自己需要,慎用! 阅读全文
posted @ 2013-02-19 16:40 冰意 LceMeaning 阅读(243) 评论(0) 推荐(0)
摘要: 1.ACCESS数据表名test,字段id字符,字段photo为OLE2.在DELPHI窗体中添加ADOQuery1,OpenDialog1,Image1,Button1,Button2,Button3设置OpenDialog1的Filter为“JPEG文件(*.jpg;*.jpeg)|*.jpg;*.jpeg”设置Button1的Caption为“Open Image”设置Button2的Caption为“Save Image”设置Button3的Caption为“Show Image”代码如下:procedure TForm1.Button1Click(Sender: TObject);b 阅读全文
posted @ 2013-01-26 15:53 冰意 LceMeaning 阅读(3332) 评论(0) 推荐(0)
摘要: BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk //该热键的键值 ); 为了得到唯一标识,我们还将用到另一个API函数 ATOM GlobalAddAtom( LPCTSTR lpString //自己设定的一个字符串 ); 因为我们还要在程序退出的时候,消除这个热键, 所以需要声明一个全局变量: HotKeyId: Integer; 第一步: 在窗口的create事件中,加入以下代码 HotKeyId := GlobalAddAtom(‘M 阅读全文
posted @ 2013-01-26 15:47 冰意 LceMeaning 阅读(362) 评论(0) 推荐(0)
摘要: TCP(Transmission Control Protocol,传输控制协议)是面向连接的协议,也就是说,在收发数据前,必须和对方建立可靠的连接。一个TCP连接必须要经过三次“对话”才能建立起来,其中的过程非常复杂,只简单的描述下这三次对话的简单过程:A--->B//主机A向主机B发出连接请求数据包:“我想给你发数据,可以吗?”,这是第一次对话;AB//主机A再发出一个数据包确认主机B的要求同步:“我现在就发,你接着吧!”,这是第三次对话。三次“对话”的目的是使数据包的发送和接收同步,经过三次“对话”之后,主机A才向主机B正式发送数据。详细点说就是:TCP接通连接要进行3次握手过程1 阅读全文
posted @ 2013-01-19 14:24 冰意 LceMeaning 阅读(903) 评论(0) 推荐(0)
摘要: uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end; 阅读全文
posted @ 2013-01-09 18:03 冰意 LceMeaning 阅读(197) 评论(0) 推荐(0)
摘要: //如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin for i := 0 to MaxInt do begin Text := IntToStr(i); end;end;//即使这样也无济于事, 因为在循环期间你执行不了 Button2Clickvar b: Boolean;procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin b := True; for i . 阅读全文
posted @ 2013-01-09 17:44 冰意 LceMeaning 阅读(174) 评论(0) 推荐(0)
摘要: 先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;修改为多线... 阅读全文
posted @ 2013-01-09 16:59 冰意 LceMeaning 阅读(223) 评论(0) 推荐(0)
摘要: 函数功能Chr将一个有序数据转换为一个ANSI字符Ord将一个有序类型值转换为它的序号Round转换一个实型值为四舍五入后的整型值Trunc转换一个实型值为小数截断后的整型值Int返回浮点数的整数部分IntToStr将数值转换为字符串IntToHex将数值转换为十六进制数字符串StrToInt将字符串转换为一个整型数,如字符串不是一个合法的整型将引发异常StrToIntDef将字符串转换为一个整数,如字符串不合法返回一个缺省值Val将字符串转换为一个数字(传统Turbo Pascal例程用于向后兼容)Str将数字转换为格式化字符串(传统Turbo Pascal例程用于向后兼容)StrPas将零 阅读全文
posted @ 2013-01-09 16:43 冰意 LceMeaning 阅读(177) 评论(0) 推荐(0)
上一页 1 ··· 3 4 5 6 7 8 9 下一页