从老家回到北京了

2008年9月19日 没有评论 1,819 次阅读

自从天气炎热回到老家，快两个月了，长大了不少，终于在9月4号的早上回到了北京，主要是赶上学生开学，火车票实在太难买了，最后坐硬座花了14个小时。 阅读全文

分类: 小小宝的故事 标签:

关键字添加的链接地址

2008年8月2日 没有评论 2,007 次阅读

'关键字加链接，要处理的字符，关键字，要添加的链接地址 '名称：关键字加链接函数ADDURL '作者：柳永法 '日期：2007-7-7 '调用方法:ADDURL("要处理的字符串","关键字","要添加的链接地址") '关键字规则:以关键字开头,以关键字结尾,各关键字之间以"|"隔开 Function ADDURL(Str,Keywords,URL) Set regEx = New RegExp ...阅读全文

分类: 网站 标签:

javascript用正则替换动态链接地址为html格式

2008年8月2日 没有评论 2,353 次阅读

你 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年8月1日 没有评论 1,951 次阅读

因为工作的原因，一直没发出来，小小宝和她妈妈终于在2008年6月1号来到了北京，小家伙年龄不大，倒是走了好几个地方，第二天就跟她爷爷、妈妈去了趟天安门广场，想当年在我们还小的时候，能来趟北京，看看首都、天安门，那是多么难得一件事。 阅读全文

分类: 小小宝的故事 标签:

delphi如何获得一个文件夹下所有文件

2008年5月16日 没有评论 2,799 次阅读

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中获取和修改文件的时间

2008年5月16日 没有评论 4,410 次阅读

这里，我向大家介绍在Delphi中如何实现文件时间的获取和修改方法。Delphi中 提供了很完备的Windows API函数的调用接口，可以方便的进行高级Windows编程 。利用Delphi中的FindFirst函数可以得到一个文件的属性记录，该记录中的Fin dData域中就记载了详细的文件时间信息。然而遗憾的是，FindData中的时间信息 是不能直接得...阅读全文

分类: delphi 标签:

捕获打印机状态改变

2008年5月13日 没有评论 3,724 次阅读

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; ...阅读全文

分类: delphi 标签:

如何获取打印机和打印作业的状态

2008年5月13日 没有评论 9,233 次阅读

如引用由 Win32API, ” 打印机 ” 由打印机驱动程序， 打印队列, 和输入/输出路径到物理打印机。 操作系统将物理打印机视为只打印作业由生成并传递系统 ” 打印机, ” 作为打印机本文其余部分中引用的目标。 最明显一部分打印机是打印队列。 它是由打印管理器或样式 Windows 95 用户界面中打印机文...阅读全文

分类: delphi 标签:

delphi中为应用程序添加友好错误提示

2008年5月8日 没有评论 2,479 次阅读

定义一个异常处理类 ，把应用程序为处理的异常全部让它来处理。 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...阅读全文

分类: delphi 标签:

Windows Live企业邮局使用手记

2008年5月5日 没有评论 2,417 次阅读

比如我的网站域名为@ibeijing2008.cn,你可以试用一下以我们这个域名为后缀的邮箱,比如:你的用户名@ ibeijing2008.com,申请地址点这里>> 注册完成后就可以在Hotmail.com、Windows Live Mail登 陆你自己的邮箱,界面和功能和你曾经使用过的@msn.com以及@hotmail.com一模一样,同时享有微软提供的所有网络服务,比如MSN,...阅读全文

分类: 网站 标签: