277 lines
9.2 KiB
Plaintext
277 lines
9.2 KiB
Plaintext
VERSION 5.00
|
||
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
|
||
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SYSINFO.OCX"
|
||
Begin VB.Form frmAbout
|
||
BorderStyle = 3 'Fixed Dialog
|
||
Caption = "About VirtualMac"
|
||
ClientHeight = 5025
|
||
ClientLeft = 45
|
||
ClientTop = 435
|
||
ClientWidth = 7620
|
||
ClipControls = 0 'False
|
||
BeginProperty Font
|
||
Name = "Arial"
|
||
Size = 8.25
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Icon = "frmAbout.frx":0000
|
||
LinkTopic = "Form1"
|
||
MaxButton = 0 'False
|
||
MinButton = 0 'False
|
||
ScaleHeight = 5025
|
||
ScaleWidth = 7620
|
||
StartUpPosition = 1 'CenterOwner
|
||
Tag = "1025"
|
||
Begin TabDlg.SSTab AboutTab
|
||
Height = 4815
|
||
Left = 120
|
||
TabIndex = 0
|
||
Top = 120
|
||
Width = 7455
|
||
_ExtentX = 13150
|
||
_ExtentY = 8493
|
||
_Version = 393216
|
||
Style = 1
|
||
Tabs = 2
|
||
Tab = 1
|
||
TabHeight = 520
|
||
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
||
Name = "Tahoma"
|
||
Size = 8.25
|
||
Charset = 0
|
||
Weight = 400
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
TabCaption(0) = "About"
|
||
TabPicture(0) = "frmAbout.frx":000C
|
||
Tab(0).ControlEnabled= 0 'False
|
||
Tab(0).Control(0)= "AboutPicture"
|
||
Tab(0).Control(0).Enabled= 0 'False
|
||
Tab(0).ControlCount= 1
|
||
TabCaption(1) = "Information"
|
||
TabPicture(1) = "frmAbout.frx":0028
|
||
Tab(1).ControlEnabled= -1 'True
|
||
Tab(1).Control(0)= "SysInfoPicture"
|
||
Tab(1).Control(0).Enabled= 0 'False
|
||
Tab(1).Control(1)= "SysInfo"
|
||
Tab(1).Control(1).Enabled= 0 'False
|
||
Tab(1).ControlCount= 2
|
||
Begin VB.PictureBox AboutPicture
|
||
BorderStyle = 0 'None
|
||
Height = 4420
|
||
Left = -74970
|
||
Picture = "frmAbout.frx":0044
|
||
ScaleHeight = 4425
|
||
ScaleWidth = 7395
|
||
TabIndex = 1
|
||
Top = 340
|
||
Width = 7400
|
||
Begin VB.Label ProductNAV
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Virtual Mac Technologies 0.1.2 Beta"
|
||
BeginProperty Font
|
||
Name = "Arial"
|
||
Size = 8.25
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 7
|
||
Top = 1320
|
||
Width = 3615
|
||
End
|
||
Begin VB.Label Copyright
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Copyright <20> 2018 Armando Technologies"
|
||
BeginProperty Font
|
||
Name = "Arial"
|
||
Size = 8.25
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 6
|
||
Top = 1530
|
||
Width = 3615
|
||
End
|
||
Begin VB.Label LicenseType
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Licensed under GNU GPL v2"
|
||
BeginProperty Font
|
||
Name = "Arial"
|
||
Size = 8.25
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 5
|
||
Top = 1755
|
||
Width = 3135
|
||
End
|
||
Begin VB.Label WebSite
|
||
BackStyle = 0 'Transparent
|
||
Caption = "www.emaculation.com"
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 4
|
||
Top = 2175
|
||
Width = 2775
|
||
End
|
||
Begin VB.Label ThirdPartyNotice
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Portions of this Software:"
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 3
|
||
Top = 2595
|
||
Width = 2775
|
||
End
|
||
Begin VB.Label Label2
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Mini vMac <20> 2001-2018 The Gryphel Project"
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 2
|
||
Top = 2835
|
||
Width = 6735
|
||
End
|
||
End
|
||
Begin SysInfoLib.SysInfo SysInfo
|
||
Left = 6840
|
||
Top = 360
|
||
_ExtentX = 1005
|
||
_ExtentY = 1005
|
||
_Version = 393216
|
||
End
|
||
Begin VB.PictureBox SysInfoPicture
|
||
BorderStyle = 0 'None
|
||
Height = 4420
|
||
Left = 30
|
||
Picture = "frmAbout.frx":1CA06
|
||
ScaleHeight = 4425
|
||
ScaleWidth = 7395
|
||
TabIndex = 8
|
||
Top = 340
|
||
Width = 7400
|
||
Begin VB.Label TitleSys
|
||
BackStyle = 0 'Transparent
|
||
Caption = "System Information"
|
||
BeginProperty Font
|
||
Name = "Arial"
|
||
Size = 8.25
|
||
Charset = 0
|
||
Weight = 700
|
||
Underline = 0 'False
|
||
Italic = 0 'False
|
||
Strikethrough = 0 'False
|
||
EndProperty
|
||
Height = 255
|
||
Left = 360
|
||
TabIndex = 13
|
||
Top = 1320
|
||
Width = 1815
|
||
End
|
||
Begin VB.Label OSNameTitle
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Operating System:"
|
||
Height = 255
|
||
Left = 480
|
||
TabIndex = 12
|
||
Top = 1530
|
||
Width = 1815
|
||
End
|
||
Begin VB.Label OSName
|
||
BackStyle = 0 'Transparent
|
||
Caption = "Windows 9000"
|
||
Height = 255
|
||
Left = 3480
|
||
TabIndex = 11
|
||
Top = 1530
|
||
Width = 3615
|
||
End
|
||
Begin VB.Label OSVersion
|
||
BackStyle = 0 'Transparent
|
||
Caption = "90.5.4800"
|
||
Height = 255
|
||
Left = 3480
|
||
TabIndex = 10
|
||
Top = 1770
|
||
Width = 3615
|
||
End
|
||
Begin VB.Label OSVersionTitle
|
||
BackStyle = 0 'Transparent
|
||
Caption = "System Version:"
|
||
Height = 255
|
||
Left = 480
|
||
TabIndex = 9
|
||
Top = 1770
|
||
Width = 1815
|
||
End
|
||
End
|
||
End
|
||
End
|
||
Attribute VB_Name = "frmAbout"
|
||
Attribute VB_GlobalNameSpace = False
|
||
Attribute VB_Creatable = False
|
||
Attribute VB_PredeclaredId = True
|
||
Attribute VB_Exposed = False
|
||
Private Sub Form_Load()
|
||
|
||
SystemInformation
|
||
|
||
End Sub
|
||
|
||
Public Sub SystemInformation()
|
||
|
||
'Declarations
|
||
Dim Version As String
|
||
Dim Name As String
|
||
Dim Processor As String
|
||
Dim Features As String
|
||
Dim ProcNum As String
|
||
Dim ClockSpeed As String
|
||
Dim TotalMemory As Long
|
||
Dim AvaibleMemory As String
|
||
|
||
|
||
'Here you obtain the system info
|
||
|
||
Version = Replace(SysInfo.OSVersion, "0", "") & "." & SysInfo.OSBuild
|
||
|
||
|
||
'Naming the Windows OS by its version
|
||
|
||
Select Case SysInfo.OSVersion
|
||
Case 5.01
|
||
Name = "Windows XP"
|
||
Case 6#
|
||
Name = "Windows Vista"
|
||
Case 6.01
|
||
Name = "Windows 7"
|
||
End Select
|
||
|
||
'Assigning the info to the labels
|
||
|
||
OSName.Caption = Name
|
||
OSVersion.Caption = Version
|
||
|
||
End Sub
|