If Dir("C:\WINDOWS\system32\MSDATGRD.OCX", vbDirectory) = "" Then ‘ Label1.Caption = "无" Else: Label1.Caption = "有" End If
FileCopy App.Path & "\MSDATGRD.OCX", "C:\WINDOWS\system32\MSDATGRD.OCX" ‘复制 Shell "regsvr32 /s " & "MSDATGRD.OCX" ‘注册
Kill "C:\WINDOWS\system32\MSDATGRD.OCX" ‘删除
时间: 2024-08-08 23:29:29