- 博客(16)
- 资源 (10)
- 收藏
- 关注
原创 在网页中添加一个音乐对象
(方法一)可视的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 9955 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
原创 离婚后的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 3140 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
LIS协议的相关资料及若干厂家的说明文档
2022-10-19
Flash自定义日历控件
2008-02-26
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人