Delphi版DLL/OCX控件的自动注册工具源码，完全使用Delphi自身控件编写而成，因此你在Delphi下要直接编译，编译运行截图如上示，直接浏览到你需要注册的OCX或DLL控件路径，点击“注册”按钮即可完成，免去你使用命令提示符的麻烦。
2021-11-20 10:27:33
7KB
1
Delphi通过微信扫描二维码并完成支付功能，使用到了两个DLL控件：libeay32.dll和ssleay32.dll，当下流行的功能，微信与生活的众多方面都息息相关，使用Delphi开发微信相关功能是必不可少的，这个微信二维码扫码程序是个不错的借鉴。
2021-11-19 11:58:13
317KB
1
Delphi基于多线程的网站后台地址扫描程序，一个多线程的后台管理扫描器，界面是防明小子的那个扫描工具写的，算是学习多线程的一个例子吧。输入网站地址后，程序会试着扫描该网站的后台管理地址，当然，这个是不准确的，看上去更像是搜索爬虫的样子。
2021-11-17 21:21:39
16KB
1
Delphi发票打印程序附完整代码，2004年编写，已经发布过两套类似发票管理系统源代码，此为更新版。该发票打印管理系统其中包括：
1.租凭业发票
2.建筑业发票
3.固定资产发票
4.服务行业发票
5.无形资产发票
程序数据库配置采用了加密方案。配置文件Config.Ini，DataConfig后面的就是经过加密后的配置路径。加解密可到程序中去看看。
2021-11-15 11:06:47
2.52MB
1
delphi开发的一个加密隐藏驱动器!!!delphi开发的一个加密隐藏驱动器!!!delphi开发的一个加密隐藏驱动器!!!
2021-11-12 04:38:08
159KB
1
Delphi仿QQ截屏功能，可区域截图，鼠标拖选区域，作者:杨畅，我为人人，人人为我。希望大家一起交流，共同进步。定义区域截图时用到的变量，所选区域已截取并复制到了剪贴板！可在其它程序中粘贴！提示：请右键单击图标设置截图热键！不要设置成系统已注册的热键以免冲突。默认全屏截图：Ctrl S,区域截图：Ctrl Q。
//创建程序参数保存文件qscreen.ini在windows目录
qscreeninifile:= TInifile.Create('qscreen.ini');
//读取参数文件qscreen.ini中dxCheckbox2的值，若不存在默认为True
dxCheckbox2.Checked := qscreeninifile.ReadBool('dxCheckbox2', '是否提示', True);
//读取参数文件qscreen.ini中HotKey1的值, 若不存在默认为16449即Ctrl A
HotKey1.HotKey:=qscreeninifile.Readinteger('HotKey1', '全屏截图热键', 16467);
//读取参数文件qscreen.ini中HotKey2的值, 若不存在默认为16465即Ctrl Q
HotKey2.HotKey:=qscreeninifile.Readinteger('HotKey2', '区域截图热键', 16465);
//注册两个默认的热键
HotKeyIndex1 := HotKeyManager1.AddHotKey(HotKey1.HotKey);
HotKeyIndex2 := HotKeyManager1.AddHotKey(HotKey2.HotKey);
//读取注册表中的自动启动项，以设置dxCheckbox1状态
Regtemp:=TRegistry.Create;
Regtemp.RootKey:=HKEY_LOCAL_MACHINE;
当程序设置窗体关闭时，更新参数保存文件qscreen.ini中关键字的值。
2021-11-10 16:58:02
27KB
1
Delphi下雪动画特效，一个十分漂亮的下雪场景动画，雪花飘落在屏幕的窗口上面，窗口听状态栏、标题栏都会落满雪花，看上去很气派。参数设置：
Point: TPoint; // 雪点位置
Color: Integer; // 先前颜色
Speed: Integer; // 下落速率
nMove: Integer; // 下落距离
Stick: Integer; // '粘连'度
SnowNodes: array[0..SnowNumber] of SnowNode; // 雪点数组
hTimer: Integer; // '随机风向'时钟句柄
CrWind: Integer; // 当前'风向' ( -1 ~ 1 )
CrStep: Integer; // 当前循环步数(用于限速)
ScreenWidth, ScreenHeight: Integer; // 屏幕尺寸
2021-11-09 00:22:31
3KB
1