用注册表对delphi程序加密 本加密方法分三部分： 　　1. 根据对注册表的搜索结果判定设置对话框的内容。 　　2. 若初次使用，则设新密码；若是已经设置密码，则进行验证。 　　3. 一个密码变换小程序（比原来的复杂得多）。当然，如果需要修改密码的功能，只要将设置密码部分改动一下即可。 　　一、程序启动时，通过搜索注

近日在和朋友讨论 MaskMatch 时偶得2个不错的算法。 　　 函数1 只支持'*','?'模糊匹配。速度比采用递归算法的快近2倍，比TMask方法快很多。 　　 函数2 完全支持正规表达式。速度于之前的相同。(不会正规表达式的朋友慎用) 　　// =========================== 　　// Function 1 　　// ===========

用Delphi来做一个GBK的码表，代码其实也不长，大家主要掌握了一定的技巧，就能举一反三，生成更多的其它实例了。 　　program GenGBKCode; 　　{$APPTYPE CONSOLE} 　　uses 　　SysUtils; 　　Var 　　i, j: byte; 　　mFile: textfile; 　　begin 　　AssignFile(mFile, 'GBKCode

问题说明： 　　为了维护程序的结构，我在程序中大量使用Action。其优点大家都知道，我可以让MenuItem对应某个Action，同时让工具栏上的Toolbutton也对于相同的Action。这样我只需要对Action进行编程，而MenuItemToolButton都可以相关到这个事件。 　　不过我发现了一个非常奇怪的问题。当我在程序中创建了4个工具栏。然后初

Form中的Select控件不支持对选择项(Option）的排序，下面我将对Option中value属性值进行排序，并调整每个Option排序后的位置，具体代码如下（这里假设每个Option中的value与其中的text内容相同）： 该函数运用了Array（数组）对象的排序(sort)方法，实现了Select排序。 function sortMe(oSel){ var ln

每一个编程爱好者，都希望自己的作品能为大家接受和喜爱，但我们的作品大多是简单的一个EXE文件的拷贝，既不需安装也没有删除程序，让人觉得只是程序而不是产品，以下我以Delphi 为例和大家交流一下程序组快捷方式建立、添加删除程序组中的删除项和程序的自删除等功能。 1.以下先来介绍建立程序组快捷方式的方法： 在uses 单

=======类的代码========= {***********************} { } { Co

在数据库应用程序开发中,系统设计员、程序设计员需要考虑的一个重要问题是如何设计和输出报表,在Delphi中我们可以采用多种方案来解决这一问题。如运用OLE自动化技术将数据输出到MS-Word、MS-Excel中等,但其中最直接、最本地化的还是使用Delphi3.0/40中的QuickReport报表组件。它是挪威QuSoft公司专门为Delphi 编写的,使用Qu