摘要：将以下代码保存为multinst.pas, 然后在任何project的
main form中uses multinst, 就可以完善防止程序的多个
实例同时运行, 特与大家共享.
unit multinst;
interface
const
mi_querywindowhandle = 1;
mi_respondwindowhandle = 2;
mi_error_none......
摘要：利用下面的两个函数移动windows的“开始”按钮。
uses
windows;
var
tbhwnd : hwnd;
sbhwnd : hwnd;
{ 移动“开始”按钮到你的表单上}
procedure tform1.button1click(sender: tobject);
begin
tbhwnd := findwindow(shell_traywnd, nil);
sbh......
Delphi5的控件升级到Delphi6上一页 ...
end;
【程序编程相关:
Delphi代码标准文档
】 【推荐阅读:
Delphi中预编译指令如何使用
】
procedure register; 【扩展信息:
使用break与continue语句和f】
implementation
uses nwdicttreeview;
procedure register;
begin
registercomponents(noctwolf db, [tnwdicttreeview]);
registerpropertyeditor(typeinfo(string), tnwdicttreeview, databasename, tdatabasenameproperty);
registerpropertyeditor(typeinfo(tfilename), tnwdicttreeview, , ttablenameproperty);
registerpropertyeditor(typeinfo(tfieldname), tnwdicttreeview, , tfieldnameproperty);
end;
function tnamepropertyeditor.getattributes: tpropertyattributes;
begin
result := [pavaluelist, pasortlist, paautoupdate];
end;
function tnamepropertyeditor.getvalue: string;
begin
result := getstrvalue;
end;
procedure tdatabasenameproperty.getvalues(proc: tgetstrproc);
var
namestrings: tstrings;
i: integer;
begin
namestrings := tstringlist.create;
try
session.getdatabasenames(namestrings);
for i := 0 to namestrings.count - 1 do ...
下一页 摘要：当你辛辛苦苦用delphi做好了一个你认为十分不错的程序,你是否想把它发布出去成为共享软件呢? 做为一个共享软件,注册码肯定是少不了的,你可以通过判断程序是否注册来进行功能,时间或一些其它限制.现在就介绍一种简单的注册码制造方法.思路是这样的:程序运行时先检测注册表,如果找到注册项,则表明已经注册,如果没有找到注册项,则提示要求注册.
<注册例程>
在delphi下新建一工......
