VB6重启自身并且检测运行方式代码分享

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Main()

    Dim command As String

    Dim restartFlag As String    

    command = App.Path & "\" & App.EXEName & ".exe" 

    restartFlag = "/restarted"    

    ShellExecute 0, vbNullString, command, restartFlag, vbNullString, vbHide

End Sub

Sub Form_Load()' 检查传递给应用程序的命令行参数

    If Command$ = "/restarted" Then

        MsgBox "应用程序通过代码重启运行."

    Else

        MsgBox "用户自己打开了应用程序."

    End If 

'应用程序的其余代码...

End Sub