2004年09月_LuckyJan

11月 10月 09月 08月 03月

原创在网页中添加一个音乐对象

（方法一）可视的windosw MediaPlayer（方法二）隐藏的音乐height="1" width="100" autostart="true" loop="true">

2004-09-29 13:49:00 2336 2

原创农历与西历对照、万年历

农历与西历对照content="农历; 阳历; 月历; 节日; 时区; 节气; 八字; 干支; 生肖; gregorian solar; chinese lunar; calendar;" name=keywords>name=description>function click() {if (event.button==2) {alert(欢迎访问——农历与西历对照) }}docum

2004-09-27 11:28:00 9954 2

原创日历

var diarydays="";//""; .calendarBigBorder { font-family: "Arial", "Helvetica", "sans-serif", "宋体"; text-decoration: none; width: 170; background-color: #FFFFFF; font-size: 9pt;border:1px

2004-09-21 11:06:00 1557

原创歡迎各位給我留言~!

....

2004-09-21 09:58:00 2226 12

原创离婚后的30天（转帖）

日子实在过不下去了，离婚对我们来说，是最明智的选择，反正也没小孩的拖累。我说出离婚这两个字后的第三天，我们就去街道把这事给办了。　　她是我大学同学，我们谈了三年恋爱，在一起又过了三年。　　只是有一个问题，离婚之后，在她还没找到新住所之前，我们还得住一起。　　自己想想都觉得搞笑，谈恋爱的时候，我们特纯洁，虽然彼此之间不止于牵手拥抱，但是同居这样的事情，压根没敢尝试过。没想到现在离婚了，倒

2004-09-16 13:22:00 2584 6

原创鼠标下浮动文字

if (document.all) { yourLogo = "LuckyJan ● 健康快乐 ●"; logoFont = "宋体"; logoColor = "blue"; yourLogo = yourLogo.split(); L = yourLogo.length; TrigSplit = 360 / L; Sz = new Array() logoWidth = 100; log

2004-09-14 16:28:00 1528

原创仅有爱情是不够的（转载）

仅有爱情是不够的新华网（ 2004-05-14 08:00:49 ）来源：发展论坛感谢满天梅花雪推荐这是个真实的故事。一个个无情的误解，纷乱了幸福的脚步。当命运的死结终于用代价打开，一切都为时已晚。接婆婆来家安度晚年，结果却背离我们的初衷。结婚二年后，先生跟我商量把

2004-09-14 10:38:00 3139 14

原创创建不规则窗口

// 方法一：利用不规则图片(1)procedure TForm1.FormCreate(Sender: TObject);begin self.ClientWidth := HotImage1.Width ; self.ClientHeight := HotImage1.Height ; brush.style:=bsClear;end;(2)把Form1 的 BorderSty

2004-09-09 11:33:00 1494

原创 String 和 VariantArray

function StringToVariantArray(const S: string): OleVariant;var P: Pointer;begin Result := NULL; if Length(S) > 0 then begin Result := VarArrayCreate([0, Length(S) - 1], varByte); P := VarArr

2004-09-09 11:22:00 1508

原创自定义DataSet，并写入数据

新建一 DataSet , 并加入数据 : prepareTablefunction TFrm_Print.CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet;var TempTable:TClientDataSet;begin TempTable:=nil; Result:=nil; if AFieldDefs begin

2004-09-09 11:18:00 2527 1

原创用Delphi 压缩Access数据库

uses dao97,dao2000;procedure CompactMdbDatabase(srcDbname,dstDbname,oldpwd,newpwd:string;bAccess97:boolean=true);var idbEngine:_dbEngine;begin if oldpwd if newpwd if bAccess97 then begin

2004-09-09 11:09:00 1775

原创 Command 程序示例，可以带参数运行

program softInfo;uses Forms, Windows, Dialogs, shellapi, inifiles, SysUtils ;{$R *.res} procedure install(); begin MessageDlg(install,mtWarning,[mbOK],0) ; end; procedure

2004-09-08 16:05:00 1517

原创 INI文件的读写

uses inifiles;function readInifile(fileName,section,Ident:string):string; //读取配置文件var ini:tinifile;begin ini:=tinifile.Create(fileName); result:=ini.ReadString(section,ident,); ini.Free;e

2004-09-08 15:42:00 1605 1

原创解决如何在网页中拥有Google搜索的功能

///////////////////////// 包含可选项的搜索 //////////////////////////////////搜索所有网站搜索所有中文网页搜索简体中文网页///////////////////////// 默认中文搜索 //////////////////////////////////

2004-09-08 11:00:00 2142 1

原创自动设置IE 默认主页、自动添加到设置收藏夹、判断客户端默认主页

(1)手动设置IE 默认主页onclick="this.style.behavior=url(#default#homepage);this.setHomePage(http://blog.csdn.net/luckyjan)" href="http://blog.csdn.net/luckyjan/">设为首页（2）自动设置IE 默认主页function SetHomePage(){

2004-09-08 10:20:00 2604 1

原创 Delphi 与 XML 示例（直接利用IXMLDocument）

(*) uses msxml,XMLIntf,XMLDoc;(1)//从文件存取function writeXML(XMLName,nodeName,nodeValue:string;proID:integer):integer;var xmlDoc:IXMLDocument; rootNode,CNode,NNode:IXMLNode; iValue,iReturn:integer;

2004-09-01 15:10:00 4161