mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-05-28 22:41:29 +00:00
623da0afb0
Deleted the files which were before in master (Those can be found in the releases > 0.3.0) Uploaded new files which are of the 0.5.2 version Now you can open a Basilisk II config file (To add it, open the New Mac Wizard, select "Create from file" and set the emulator to Basilisk II) and also you can edit and save it (Note that to edit it you must open the section "Edit Config File Manually" and make your changes there)
63 lines
3.4 KiB
VB.net
63 lines
3.4 KiB
VB.net
Imports System.Management
|
|
Namespace My
|
|
|
|
' Los siguientes eventos están disponibles para MyApplication:
|
|
'
|
|
' Inicio: se desencadena cuando se inicia la aplicación, antes de que se cree el formulario de inicio.
|
|
' Apagado: generado después de cerrar todos los formularios de la aplicación. Este evento no se genera si la aplicación termina de forma anómala.
|
|
' UnhandledException: generado si la aplicación detecta una excepción no controlada.
|
|
' StartupNextInstance: se desencadena cuando se inicia una aplicación de instancia única y la aplicación ya está activa.
|
|
' NetworkAvailabilityChanged: se desencadena cuando la conexión de red está conectada o desconectada.
|
|
Partial Friend Class MyApplication
|
|
|
|
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
|
|
SysInfo.GetSysInfo()
|
|
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder) = False Then
|
|
My.Settings.DefaultMacFolder = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\My Macs"
|
|
End If
|
|
If My.Settings.vMacROM = "" Then
|
|
My.Settings.vMacROM = My.Application.Info.DirectoryPath & "\Emulators\vMac\MacII.ROM"
|
|
End If
|
|
If My.Settings.BasiliskROM = "" Then
|
|
My.Settings.BasiliskROM = My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\Mac_OS_ROM"
|
|
End If
|
|
If My.Settings.SheepShaverROM = "" Then
|
|
My.Settings.SheepShaverROM = My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Mac_OS_ROM"
|
|
End If
|
|
|
|
If Not My.Application.CommandLineArgs.Count = 0 Then
|
|
For x As Integer = 0 To My.Application.CommandLineArgs.Count - 1
|
|
Select Case My.Application.CommandLineArgs.Item(x)
|
|
Case "/debug"
|
|
frmMain.mnuFileDebug.Visible = True
|
|
frmMain.mnuHelpCrash.Visible = True
|
|
Case "/log"
|
|
End Select
|
|
Next
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
|
|
If MsgBox("Virtual Mac is already running. Click Ok to show Virtual Mac Console. Click Cancel to close this dialog", MsgBoxStyle.OkCancel, "Virtual Mac is alerady running") = MsgBoxResult.Ok Then
|
|
frmMain.Show()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
|
|
For x As Integer = 0 To My.Application.CommandLineArgs.Count - 1
|
|
Select Case My.Application.CommandLineArgs.Item(x)
|
|
Case "/debug"
|
|
MsgBox(e.Exception.Message)
|
|
Resume Next
|
|
Case "/log"
|
|
Logger.Log(e.Exception.Message)
|
|
Resume Next
|
|
Case ""
|
|
Resume Next
|
|
End Select
|
|
Next
|
|
End Sub
|
|
End Class
|
|
End Namespace
|
|
|