如何让程序运行一次后自动作废,急!!!

来源:百度知道 编辑:UC知道 时间:2024/06/16 04:59:49
我做了一个安装程序Setup.exe,请问如何第一次运行后作废(即不能再使用),本人万分感谢!!(如果是应用程序的话,请发到我的邮箱里来,谢谢!)

安装时向注册表写入一个自定义的键值.比如
HKLM\MyProc
值名:installed
值值:yes

安装时先读取\检测这个键.如果已经安装过一次,就拒绝安装.

如果有必要,你还可以再加上自毁程序.即自我删除部分.

在安装结尾的地方调用另外一个程序来删除那个Setup.exe,
ShellExecute(handle, 'open','c:\Project1.exe',nil,nil, SW_SHOWNORMAL)这个函数。Project1.exe就是deletefile()的.