Delphi
文章平均质量分 76
forDream_
No pains no gains.
https://blog.fdlife.info/
展开
-
[测试]注册全局热键
第一帖测试下CSDN的效果、copy一份网络上的东西看看效果、、typeTForm1 = class(TForm) Label1: TLabel; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject);private { Private declarations } aatom:atom; procedure hotkey(var转载 2010-07-12 16:47:00 · 474 阅读 · 0 评论 -
Delphi外挂辅助技术入门篇、Windows扫雷程序示例
<br />程序本身就不多说了、应用很基础、代码里的注释也比较详细、、<br />而且基本是使用api完成、所以改VB/VC++等都是很容易的<br />至此、也基本了解了扫雷程序的工作原理(猜测)<br />1.随机产生列阵、等待用户<br />2.判断用户首次左键单击位置是否为雷区、如果不是则继续、若是的话、重新排列列阵、让用户首次单击区域不为雷区(我猜想是为了不让游戏这么快的结束)<br />3.一旦首次判断完成、列阵则已经被确定、不再更改<br />4.扫雷程序界面上提示的数字、预先并没有生成、只是原创 2010-07-16 07:44:00 · 878 阅读 · 0 评论 -
BT黑亮视频下载辅助工具
<br />2010-08-12 10:56:24<br />Made By ForDream<br />一个简单的小工具、主要是用了正则表达式、没什么技术含量、代码贴出来、记录一下、<br />双击可以下载、右键可以进行搜索、速度还不错<br />unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdHTTP,原创 2010-08-12 10:59:00 · 1723 阅读 · 0 评论 -
搜索网络上E-Mail地址、网络蜘蛛
<br />没什么技术含量、无聊弄的、<br /><br /> <br />D2010 + Windows7下没有问题<br />实际上就一个函数而已、在执行的时候可能会程序程序假死以及网络被大量占用的情况、<br />此时不要结束程序、等待运行完毕后即正常<br />(如果很在意程序的假死、可以先不要显示listview、全部获取完毕后再次显示listview、就不会假死了)<br />procedure TForm1.FormCreate(Sender: TObject);var nLoop,原创 2010-08-16 13:35:00 · 2457 阅读 · 0 评论 -
Virtual ListView效率对比
第一次注释掉Lv1的循环、运行Lv2的代码、第二次注释掉Lv2的循环、运行Lv1的代码、具体运行速度、完全不用计时、显而易见、在我的电脑上、Virtual ListView的速度几乎是一瞬间就好了仅以此做记录、以后不要忘记了ListView的这种用法、、 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls;原创 2010-08-17 16:01:00 · 1984 阅读 · 0 评论 -
共享几个关于正则表达式的函数
<br />自己时长会用的几个关于正则的函数、在这里存一份、、、<br />{ 测试字符串 参数列表 Subject 等待测试的字符串 getIndex 获取的分组下标(可指定多个) RegEx 正则匹配式 Results 返回符合表达式的字符串列表 Result 测试是否成功 **************************************** eg: var s:TStringList; b原创 2010-09-23 09:26:00 · 580 阅读 · 0 评论 -
笔记、为何将对象释放后、依旧可以引用?
<br />存在下面的一个类<br />//******定义部分*********type TTest = class(TObject) protected tNum:Integer; tStr:string; public constructor Create(Num:Integer;Str:string); destructor Destroy; procedure Free; proper原创 2010-10-06 10:24:00 · 532 阅读 · 0 评论 -
ForDream在线音乐播放器[2010-11-07]
<br />在线记录<br /> <br />截至21:12 2010-11-06 完成功能<br /><br />1.用户登陆<br />2.按歌手、歌名搜索<br />3.歌曲推荐(流行榜、新歌榜、用户智能推荐)<br />4.MP3播放<br />5.播放列表(未测试)<br />6.播放的基本控制(开始、停止)<br />7.播放信息的UI显示<br />8.皮肤更换(8款)<br />9.播放列表的自动保存、读取(未测试)<br /><br />预计添加的功原创 2010-11-07 12:22:00 · 765 阅读 · 0 评论