有几种方法可以判断一个程序是第一次运行（征求最简单的方法）

Question

我知道有几中，比如说注册表写入，但是太麻烦了。 不知道是否有更加简单的方法来判断的，？？？？

Answer 1

You can use file, and wrinte the times of open the program.

Answer 2

你的意思如果是不能重复运行:    If App.PrevInstance Then
        WakeUpWindow "Client Messenger"
        End
    End If 你的意思如果是从安装以来，第一次运行，最好写一个文件到一个文件夹，比如c;\winnt\system32\.txt
来记录运行的次数

Answer 3

最简单要算使用注册表了！！！！！！！！！！！！！！！！但也有例外：写入注册表时发生错误
APE 希望在 Windows 注册表中保留一些设置值。要实现这一点，当前用户必须具有访问注册表的安全权限。
请确认您在本地计算机上的安全权限允许您读取和写入 Windows 注册表。可能楼主的方法最简单，先安装一个文件，运行一次后即删除！！！

Answer 4

给个思路：'>>>>>>>>>>>>>>>>>>>>>进入系统>>>
Sub Main()
    Dim dblRunCount As Double           '是否为首次运行系统，从注册表内取得入口参数,数值为系统运行次数
    On Error Resume Next
    dblRunCount = CDbl(GetSetting(AppName:=App.Title, section:="System", Key:="RunCount", Default:="0"))
    dblRunCount = dblRunCount + 1       '运行次数累加
    SaveSetting AppName:=App.Title, section:="System", Key:="RunCount", setting:=CStr(dblRunCount) '保存运行次数
    XiTongInit                          '系统 初始化，设置等
    frmGYChaXunSys.Show   '加载主界面
End Sub

Answer 5

给个思路：'>>>>>>>>>>>>>>>>>>>>>进入系统>>>
Sub Main()
    Dim dblRunCount As Double           '是否为首次运行系统，从注册表内取得入口参数,数值为系统运行次数
    On Error Resume Next
    dblRunCount = CDbl(GetSetting(AppName:=App.Title, section:="System", Key:="RunCount", Default:="0"))
    dblRunCount = dblRunCount + 1       '运行次数累加
    SaveSetting AppName:=App.Title, section:="System", Key:="RunCount", setting:=CStr(dblRunCount) '保存运行次数
    XiTongInit                          '系统 初始化，设置等
    frmGYChaXunSys.Show   '加载主界面
End Sub

Answer 6

最简单的就是写一个文件,取名为*.dll,放在system中

Answer 7

If App.PrevInstance = True Then
     Exit Sub
 End If