标签：DELPHI

十五楼的鸟儿 16年前 (2009-01-16) 23257浏览 0评论 收藏

很不错的例子，很多时候都能用到。[code=delphi]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;t...

十五楼的鸟儿 16年前 (2009-01-15) 28135浏览 0评论 收藏

类似的可以看这篇文章：[delphi实现自动填写表单和调用网页上的函数] [code=delphi]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...

十五楼的鸟儿 16年前 (2009-01-15) 24706浏览 0评论 收藏

legend {font-family:"Arial";font-size:16.8px;font-weight:bold;}absolute[code=delphi]//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen:...

十五楼的鸟儿 16年前 (2009-01-14) 24076浏览 0评论 收藏

很简单的代码，:-D[code=delphi]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type T...

十五楼的鸟儿 16年前 (2009-01-14) 23002浏览 0评论 收藏

整理的一段运算符表格，方便查阅 分类 运算符 操作 操作数 结果类型 范例 算术运算符...

十五楼的鸟儿 16年前 (2009-01-12) 26228浏览 0评论 收藏

某处翻来的一个demo，好玩，^_^[code=delphi]unit Unit1;{主程序}interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, tlh...

十五楼的鸟儿 16年前 (2009-01-01) 37567浏览 0评论 收藏

简单的webserver而已，不过实现的功能有些猥琐，可以在远程监控你的桌面一举一动~~代码如下：[code=delphi]unit Main;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls,...

十五楼的鸟儿 16年前 (2008-12-17) 24871浏览 0评论 收藏

学校的老师太抠门，整天拿着学校教务处统一发放的课件大吵大叫的说有版权，恨不得全世界都在用那一份课件在授课，可是那老师就是不给你看，上课的时候随用随删，太xx了，所以参考资料写了这个小偷，程序过程全静默检测系统盘符变化，只要是新插入的磁盘，直接复制到当前目录下的backup文件夹。[code=delp...

十五楼的鸟儿 16年前 (2008-12-10) 24922浏览 0评论 收藏

纯属无聊，搞这么个dd，表乱传哈~var Doc : IHTMLDocument2; input: OleVariant; userinputelement , pwdinputelement : ihtmlinputelement; procedure TForm1.But...

十五楼的鸟儿 16年前 (2008-12-05) 28960浏览 0评论 收藏

关键是那个SetScreen函数[code=delphi]unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;t...

十五楼的鸟儿 16年前 (2008-11-30) 26667浏览 0评论 收藏

利用windows Api置顶，窗体就不闪烁了。[code=delphi]procedure TForm1.CheckBox1Click(Sender: TObject);beginif zhiding= false then begin // form1.Fo...

十五楼的鸟儿 16年前 (2008-11-30) 28775浏览 0评论 收藏

代码中用到了IdAntiFreeze、idhttp、PerlRegEx和StringGrid。[code=delphi]type IdHTTP1: TIdHTTP; IdAntiFreeze1: TIdAntiFreeze; PerlRegEx1: TPerlRegEx; S...

十五楼的鸟儿 16年前 (2008-11-30) 28304浏览 0评论 收藏

主要的效果就是针对程序上有链接的label，其他的也可以，只要在其onmousemove事件上加入如下代码即可事先类似网页链接的hover变色的属性：[code=delphi] var OldColor:tcolor;procedure TForm1.Label2MouseMove(Sender:...

十五楼的鸟儿 16年前 (2008-11-30) 26609浏览 0评论 收藏

很白痴的一段代码，版本号是单独写到程序中记录的，并非程序文件切实的版本号，只要保持每次发布程序时注意统一一下代码即可。其中http://nobird.org/banbenhao.txt存放的是最新版的版本号，banbenthis是当前软件自身版本号。[code=delphi]procedure TF...

十五楼的鸟儿 16年前 (2008-11-30) 28253浏览 0评论 收藏

读取注册表键值完成的判断，代码有些繁琐，delphi我用的还不是很熟，哈~~随便一个事件中加入如下代码：[code=delphi]varReg2,Reg3: TRegistry;buf: PByteArray;size: Integer; mask: array[0..19] of Byte = (...