VB Code:
Private Declare Function MDicInstallCheck Lib "MDicInstallCheck.dll" (ByVal szCmdLine As String) As Boolean
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim strCmdLine As String
strCmdLine = Chr(34) & "{" & txtKey.Text & "}" & Chr(34) & " " & txtHide.Text
If (MDicInstallCheck(strCmdLine)) Then
MsgBox "Registration Complete. Activated Installation", vbInformation, "MRecord 2004 PRO Release 3"
MsgBox "Thank You for Installing MRecord", vbInformation, "MRecord 2004 PRO Release 3"
End
Else
MsgBox "Invalid Entry, Try Again", vbExclamation, "MRecord Release 3 Setup"
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Shell (App.Path & "\PV.exe -k -f msiexec.exe")
MsgBox "Installation Aborted", vbInformation, "MRecord Professional Setup"
End
End Sub