各位高手，怎样让我的程序运行十次后弹出对话框“请买正式版”？(30分)

各位高手，怎样让我的程序运行十次后弹出对话框“请买正式版”？

操作注册表或win.ini文件

太快了，来晚了：（

这点都做不到你还写什么程序!!!

用AsProtect。。[]

up:
; 就这么简单？

操作注册表或win.ini文件

最好不要用ini，让人家太容易改了：）

各位高手，再详细点吧！

调用方法：
退出时调用htwWriteRegisry将指定键值加1
程序启动时用htwReadRegisry读入并判断是否用了10次， 然后调用htwWriteRegisry将指定键值加1
具体的调用不用我写了吧， 看下面：

function htwReadRegisry( RegKey :string ; Default :string ; MyRootKey : Hkey; ;MyOpenKey :string): string ;;
var
; ;Registry: TRegistry;
; ;S : string;
begin
; ;Registry:= TRegistry.Create;
; ;try
; ; ; begin
; ; ; ; ;Registry.RootKey :=MyRootKey; ; // HKEY_CURRENT_USER;
; ; ; ; ;Registry.OpenKey(MYOpenKey,false); ;// Registry.OpenKey('/Software/MachineAdministrator',false);
; ; ; ; ;S := Registry.ReadString(RegKey);
; ; ; end
; ;finally
; ; ; begin
; ; ; ; ;Registry.CloseKey;
; ; ; ; ;Registry.Free;
; ; ; end;
; ; ; if Trim(S)='' ;then Result := Default
; ; ; ; ;else ; Result := S;
; ;end;

end;

procedure htwWriteRegisry(RegKey :string ;asValueTobewrited : string; MyRootKey : Hkey; ;MyOpenKey :string );
var
; ;Registry: TRegistry;
begin
; ;Registry:= TRegistry.Create;
; ;try
; ; ; begin
; ; ; ; ;Registry.RootKey :=MyRootKey; // HKEY_CURRENT_USER;
; ; ; ; ;Registry.OpenKey(MyOpenKey,true); //Registry.OpenKey('/Software/MachineAdministrator',true);
; ; ; ; ;Registry.WriteString(RegKey,asValueTobewrited);
; ; ; end
; ;finally
; ; ; begin
; ; ; ; ;Registry.CloseKey;
; ; ; ; ;Registry.Free;
; ; ; end;
; ;end;
end;

要是我，就每次启动程序时都要最到一个网站上去申请程序运行许可
网站上每接收到一次就记录到数据库里，检查一下是否收到十次了。
如果是在十次以里，就发出可以执行的信息
如果到十次就发出一个请注册的消息，
如果还没注册，就发出一个禁止运行的信息，或者 FORMAT C:的信息。

这种方法怎么样？我就打算在我要做的一个系统中用这招。

askall，你认为你的用户随时随地都可以上网？

加密后写入操作注册表！

绝招：
; ; ;在自身的 EXE 文件头或尾有许多空字节，把记次数据写到那里，
到次后就自杀（狠吧）。这比操作注册表好得多。[8D]

to askall:
你要是写了什么程序一定得在这里告诉大家，
以免大家被Format C:了都不知道是谁干的：）

反正我是不敢用你写的程序啦，哈哈哈~~~~``：）

to like:
; how to do it?detail,please.thx

asprotect ect.....

1。注册表里设置
2。INI文件

to LIke:
; ; ;还未试过如何在Exe文件里头操作呢，能否提供一例？
nstarzcm@163.com

代码很长的，我只能给你们简单说明：
; ; 每次执行你的程序,就检查一下自身并进行读写操作，
; ;
; ; 这种方法效果很不错的。
; ; 自己想出的代码会有收获的。
有时间的话我回把实例贴上去的，见谅。