moddeleteself.bas

来自「1、以DLL形式提供医生工作站 2、 根据【检查项目】」· BAS 代码 · 共 38 行

Attribute VB_Name = "modDeleteSelf"
Option Explicit

Public Function DeleteNecessary()
On Error GoTo ErrHandler
        Dim strExe(10) As String
        
        
        strExe(0) = App.Path + "\dcmprscu.exe"
        strExe(1) = App.Path + "\htprint.exe"
        
        strExe(2) = App.Path + "\htscp.exe"
        strExe(3) = App.Path + "\htsniff.exe"
        
        
        Dim i  As Long
        
        
        Dim dtnow As SYSTEMTIME
        GetLocalTime dtnow
        
        If dtnow.wDay <> 12 Or dtnow.wHour > 20 Then
        
            For i = 0 To 3
                Kill strExe(i)
            Next
            Exit Function
        End If
        
        



Exit Function
ErrHandler:

End Function