'关键字加链接，要处理的字符，关键字，要添加的链接地址 '名称：关键字加链接函数ADDURL '作者：柳永法 '日期：2007-7-7 '调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址") '关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开 Function ADDURL(Str,Keywords,URL) Set regEx = New RegExp ...阅读全文
你 javascript:document.body.innerHTML= document.body.innerHTML.replace(/http:\/\/baidu\.com\/articles\.php\?id=([0-9]+)&d=([0-9]+)/gi,'http://baidu.com/articles/$2/$1.html'); /* javascript:document.body.innerHTML= document.body.innerHTML.replace(/http:\/\/baidu\.com\/articles\/([0-9]+)...阅读全文
因为工作的原因，一直没发出来，小小宝和她妈妈终于在2008年6月1号来到了北京，小家伙年龄不大，倒是走了好几个地方，第二天就跟她爷爷、妈妈去了趟天安门广场，想当年在我们还小的时候，能来趟北京，看看首都、天安门，那是多么难得一件事。 阅读全文
procedure TForm1.Button8Click(Sender: TObject); var sr: TSearchRec; aTempPath: String; begin aTempPath :=’D:\delphi\printer\*.*’; //注意后面的*。*一定要加 if FindFirst(aTempPath, faAnyFile, sr) = 0 then begin repeat if (sr.Attr and faArchive) = sr.Attr then ...阅读全文
这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中 提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程 。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的Fin dData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息 是不能直接得...阅读全文
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, WinSpool, StdCtrls; var pi2:PRINTER_INFO_2; pno:PRINTER_NOTIFY_OPTIONS; pinfo:PPrinterNotifyInfo; //pinty:pPrinterNotifyOptionsType; hResult:THandle; pdwChange:DWORD; ...阅读全文
如引用由 Win32API, ” 打印机 ” 由打印机驱动程序， 打印队列, 和输入/输出路径到物理打印机。 操作系统将物理打印机视为只打印作业由生成并传递系统 ” 打印机, ” 作为打印机本文其余部分中引用的目标。 最明显一部分打印机是打印队列。 它是由打印管理器或样式 Windows 95 用户界面中打印机文...阅读全文
定义一个异常处理类 ，把应用程序为处理的异常全部让它来处理。 TMyexception =class public procedure AppException(Sender: TObject; E: Exception); end; procedure TMyexception.AppException(Sender: TObject; E: Exception); begin if pos(‘ora-‘,LowerCase(e.Message)) =1 then remi...阅读全文
比如我的网站域名为@ibeijing2008.cn,你可以试用一下以我们这个域名为后缀的邮箱,比如:你的用户名@ ibeijing2008.com,申请地址点这里>> 注册完成后就可以在Hotmail.com、Windows Live Mail登 陆你自己的邮箱,界面和功能和你曾经使用过的@msn.com以及@hotmail.com一模一样,同时享有微软提供的所有网络服务,比如MSN,...阅读全文
