如何让程序运行一次后自动作废，急！！！

来源：百度知道编辑：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()的.