LceMeaning

摘要： 将一下代码贴在你需要的设置提醒的地方。实例图：这个需要晚上23:00之后和凌晨6:00之前才能看到，呵呵 阅读全文

摘要： 有很多站长可能都有过这样的经历，不管是自己改的程序或者是自己写的，在运行时可能会在浏览器左下角出现“网页上有错误”的感叹号提醒标志，双击后会出现XX页面XX行XX错误，有些是显而易见的，稍作修改就能改正，但有些任你如何调试都不能找到，但偏偏程序是能正常完成你所期望的功能，也没有出错。这种情况下，有些完美主义的站长朋友就希望把这个错误屏蔽掉，我也遇到过这种情况，可能是我功夫不到家，还不能搞定人家的程序，所以苦思无果之下找到以下方法。如果网页上的代码运行正常，程序结果正常，你完全可以忽略这些问题，把IE左下脚那个讨厌的网页上有错误，如果浏览你网页的网友的IE没有关闭禁止页面调试功能，那么还会弹出调 阅读全文

摘要： 针对script添加type=”hidden”属性如cnzz的统计代码：添加后：更简单，建立一个隐藏层统计代码这两种方法是我见到的最简单的，其他什么下载JS到本地再修改指向什么的太麻烦。当然不仅仅限于隐藏统计代码，你可以隐藏其他任何不想让别人看到的东西。可能SEO会跟你说隐藏可能对搜索引擎不友好，或者可能会被惩罚。所以看自己需要，慎用！ 阅读全文

摘要： 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 阅读全文

摘要： BOOL RegisterHotKey( HWND hWnd, //响应该热键的窗口句柄 Int id, //该热键的唯一标识 UINT fsModifiers, //该热键的辅助按键 UINT vk //该热键的键值 ); 为了得到唯一标识，我们还将用到另一个API函数 ATOM GlobalAddAtom( LPCTSTR lpString //自己设定的一个字符串 ); 因为我们还要在程序退出的时候，消除这个热键， 所以需要声明一个全局变量： HotKeyId: Integer; 第一步： 在窗口的create事件中，加入以下代码 HotKeyId := GlobalAddAtom(‘M 阅读全文

摘要： TCP（Transmission Control Protocol，传输控制协议）是面向连接的协议，也就是说，在收发数据前，必须和对方建立可靠的连接。一个TCP连接必须要经过三次“对话”才能建立起来，其中的过程非常复杂，只简单的描述下这三次对话的简单过程：A--->B//主机A向主机B发出连接请求数据包：“我想给你发数据，可以吗？”，这是第一次对话；AB//主机A再发出一个数据包确认主机B的要求同步：“我现在就发，你接着吧！”，这是第三次对话。三次“对话”的目的是使数据包的发送和接收同步，经过三次“对话”之后，主机A才向主机B正式发送数据。详细点说就是：TCP接通连接要进行3次握手过程1 阅读全文

摘要： uses WinInet;procedure TForm1.Button1Click(Sender: TObject);begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');end; 阅读全文

摘要： //如果有这样一个循环, 是非常可怕的; 因为它完不了, 你得等着.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 . 阅读全文

摘要： 先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}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;修改为多线... 阅读全文

摘要： 函数功能Chr将一个有序数据转换为一个ANSI字符Ord将一个有序类型值转换为它的序号Round转换一个实型值为四舍五入后的整型值Trunc转换一个实型值为小数截断后的整型值Int返回浮点数的整数部分IntToStr将数值转换为字符串IntToHex将数值转换为十六进制数字符串StrToInt将字符串转换为一个整型数，如字符串不是一个合法的整型将引发异常StrToIntDef将字符串转换为一个整数，如字符串不合法返回一个缺省值Val将字符串转换为一个数字（传统Turbo Pascal例程用于向后兼容）Str将数字转换为格式化字符串（传统Turbo Pascal例程用于向后兼容）StrPas将零 阅读全文