使用AHM2000中的一个控件AHMSERIALNO(名字记不清了),它可以设置序列号和试用期。
解决方案 »
- 使用adoquery批量更新一个表,结果无法提交到数据库。
- 如何通过类名和对象名获取对象实例
- 请教真正的桌面居中问题
- delphi7。0 报表
- DBGrid的动态生成问题?UP有分,不够再加
- 小菜鸟学习自定义控件(很简单,请指教)
- ?向高手请教:如何在stringgrid的一个cell中输入多行文本?
- 当listview在vsReport状态时,怎样点击column时让其中的item排序???
- 哪里可以找到 MACRO CANTU写的《DELPHI高级编程指南》?
- 怎么样判断OLE对象字段有没有赋值?
- 我怎么才能让clientsocket的onconnect事件在程序控制执行?急!急!急!
- 如何打开一个hlp文件?
我可以用UltraEdit对安装前后的注册表对比一下,给你改回去或者改成别的不就又可以用了?
继续关注!~
不过是否可以把第一次运行软件的日期保存在exe文件里啊
那样什么人也改不了了
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Registry;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
FCount: Integer;
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}const
cValueName = 'MMCount';
cKeyName = 'MMSystem';
cUseCount = 2;procedure TForm1.FormCreate(Sender: TObject);
begin
with TRegistry.Create do try
RootKey := HKEY_CURRENT_USER;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\' + cKeyName, True);
if ValueExists(cValueName) then
FCount := ReadInteger(cValueName)
else FCount := 0;
finally
CloseKey;
Free;
end;
if FCount > cUseCount then begin
ShowMessage('Error!');
Halt(0);
end;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
Inc(FCount);
with TRegistry.Create do try
RootKey := HKEY_CURRENT_USER;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\' + cKeyName, True);
WriteInteger(cValueName, FCount);
finally
Free;
end;
end;end.