Mirage Source

Function SystemFileExist(ByVal SystemFileName As String) As Boolean
    If Dir("C:" & "\" & SystemFileName) = "" Then
        SystemFileExist = False
    Else
        SystemFileExist = True
    End If
End Function

Private Sub Form_Load()
If SystemFileExist("dx7vb.dll") And SystemFileExist("msstdfmt.dll") And SystemFileExist("MSCOMCTL.ocx") And SystemFileExist("MSWINSCK.ocx") And SystemFileExist("richtx32.ocx") And SystemFileExist("TABCTL3N.ocx") Then
Call MsgBox("Game loaded successfull!")
Else
DLL_Register App.Path & "\Extras\register-files\dx7vb.dll"
DLL_Register App.Path & "\Extsras\register-files\msstdfmt.dll"
DLL_Register App.Path & "\Extras\register-files\MSCOMCTL.ocx"
DLL_Register App.Path & "\Extras\register-files\MSWINSCK.ocx"
DLL_Register App.Path & "\Extras\register-files\richtx32.ocx"
DLL_Register App.Path & "\Extras\register-files\TABCTL3N.ocx"
Call MsgBox("The registery files have registered successfull!")
End If
End Sub

Function SystemFileExist(ByVal SystemFileName As String) As Boolean
    If Dir("C:" & "\WINDOWS\System32\" & SystemFileName) = "" Then
        SystemFileExist = False
    Else
        SystemFileExist = True
    End If
End Function