我想实现一个功能，请达人帮忙看一下

Question

我有一个程序，我想让它运行一次，然后就再也不运行了
我的想法是操作注册表
初次运行的时候在注册表里面写入一个键值
以后运行检测那个键值，如果是1 就不运行了
求达人告知怎么写注册表和读注册表
一拜谢
二拜谢
三拜谢

Answer 1

http://www.softcode.com.cn/Article_Show.asp?ArticleID=155

Answer 2

Private Sub Command1_Click()
'写入注册表
SaveSetting "我的程序", "Settings", "key1", "abcde"End SubPrivate Sub Command1_Click()
'读出值
msgbox GetSetting("我的程序", "Settings", "key1", "")
End Sub