摘要：当你辛辛苦苦用delphi做好了一个你认为十分不错的程序,你是否想把它发布出去成为共享软件呢? 做为一个共享软件,注册码肯定是少不了的,你可以通过判断程序是否注册来进行功能,时间或一些其它限制.现在就介绍一种简单的注册码制造方法.思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册.
<注册例程>
在delphi下新建一工......
摘要： 有一些小的程序，需要连接数据库时，我们使用ado进行连接。但有时候，我们是否考虑到系统是否安装了相关的ado驱动程序了呢。如下函数进行这个检测：
function adoinstalled : boolean;
var
r : tregistry;
s : string;
begin
r := tregistry.create;
try
with r do
beg......
移动Windows的开始按钮上一页 ...
sbhwnd := findwindowex(findwindow(shell_traywnd, nil), 0, button, nil);
windows.setparent(sbhwnd,handle); 【程序编程相关:
OTA:向Action List中添加一】 【推荐阅读:
Delphi----永不消逝的精灵
】
end; 【扩展信息:
OTA:向Image List里添加图片】
{移动“开始”按钮到任务栏上}
procedure tform1.button2click(sender: tobject);
begin
movewindow(sbhwnd,0,0,0,0,true);
windows.setparent(sbhwnd,tbhwnd);
end;
摘要：笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求，delphi本身提供了一些目录操作函数，但只是针对空目录而言，对目录下带有子目录的情况，更是无能为力。利用win32 api函数和结构，以及递归的程序设计思想，笔者实现了对任意目录进行拷贝、删除和搬移的功能(分别相当于dos中的xcopy、deltree和move命令)。以下分别给出了实现代码：
---- 1、拷贝目录
---- 为了......
