d9c184489b6356c301695606f409c1a6a6f58793vboxsyncPrivate Declare Function SetEnvironmentVariable Lib "kernel32" _
d9c184489b6356c301695606f409c1a6a6f58793vboxsync Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
d9c184489b6356c301695606f409c1a6a6f58793vboxsyncPrivate Declare Function GetEnvironmentVariable Lib "kernel32" _
d9c184489b6356c301695606f409c1a6a6f58793vboxsync Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String, ByVal nSize As Long) As Long
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Set where to take VirtualBox configuration from
d9c184489b6356c301695606f409c1a6a6f58793vboxsync 'SetEnvironmentVariable "VBOX_USER_HOME", "E:\VirtualBoxHome\win"
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Setup debug logging (available only in debug builds)
d9c184489b6356c301695606f409c1a6a6f58793vboxsync 'SetEnvironmentVariable "VBOX_LOG", "main.e.l.f + gui.e.l.f"
d9c184489b6356c301695606f409c1a6a6f58793vboxsync 'SetEnvironmentVariable "VBOX_LOG_FLAGS", "time tid thread"
d9c184489b6356c301695606f409c1a6a6f58793vboxsync 'SetEnvironmentVariable "VBOX_LOG_DEST", "dir:" + PATH_OUT_BASE + "/logs"
ad27e1d5e48ca41245120c331cc88b50464813cevboxsync ' Clear the old list contents
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Disable the button and the list for the duration of the call
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Obtain the global VirtualBox object (this will start
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' the VirtualBox server if it is not already started)
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Get the VirtualBox server version
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Obtain a list of registered machines
d9c184489b6356c301695606f409c1a6a6f58793vboxsync Item = machines(i).Name + " (" + machines(i).OSTypeId() + ")"
d9c184489b6356c301695606f409c1a6a6f58793vboxsync ' Reenable the button and the list