If bIsWinNT Then    ''''WinNT操作系统

        With Combo1

            .AddItem "0 - 关闭程序并以其它用户身份登陆"

            .AddItem "1 - 关闭计算机"

            .AddItem "2 - 重新启动计算机"

            .Text = ""

        End With

    Else   ''''Win95/98操作系统

        With Combo1

            .AddItem "1 - 关闭计算机"

            .AddItem "2 - 重新启动计算机"

            .Text = ""

        End With

   End If

   Command1.Caption = "关闭系统对话框"

   Command2.Caption = "关闭或重新启动计算机"

End Sub

       运行程序，点击“关闭系统对话框”按钮就可以弹出关闭系统对话框。在Combo1中选择关闭系统、重新启动或者关闭程序并以其它用户身份登陆项再点击“关闭或重新启动计算机”按钮，系统就会弹出提示对话框提示是否执行相应的操作，点击“是”就可以执行了。

E-Mail      vbcode@21cn.com 

上一页  [1] [2]