home *** CD-ROM | disk | FTP | other *** search
VERSION 2.00 Begin Form Winfo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Winfo" ClientHeight = 3975 ClientLeft = 2100 ClientTop = 1575 ClientWidth = 3540 FontBold = -1 'True FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 4380 Icon = WINFO.FRX:0000 Left = 2040 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False ScaleHeight = 3975 ScaleWidth = 3540 Top = 1230 Width = 3660 Begin Timer Timer1 Interval = 100 Left = 0 Top = 3600 End Begin CommandButton About Caption = "&About" Height = 375 Left = 2040 TabIndex = 7 Top = 3480 Width = 1215 End Begin CommandButton Done Caption = "&Done" Height = 375 Left = 240 TabIndex = 6 Top = 3480 Width = 1215 End Begin Label Label7 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 8 Top = 3120 Width = 3375 End Begin Label Label6 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 5 Top = 2760 Width = 3255 End Begin Label Label5 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 4 Top = 2400 Width = 3255 End Begin Label Label4 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 3 Top = 2040 Width = 3255 End Begin Label Label3 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H000000FF& Height = 255 Left = 120 TabIndex = 2 Top = 1680 Width = 3255 End Begin Label Label2 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H00FF0000& Height = 255 Left = 120 TabIndex = 1 Top = 1320 Width = 3255 End Begin Label Label12 BackColor = &H00000000& ForeColor = &H00000000& Height = 15 Left = 120 TabIndex = 13 Top = 1200 Width = 3255 End Begin Label Label10 BackColor = &H00C0C0C0& ForeColor = &H0000FFFF& Height = 255 Left = 2040 TabIndex = 11 Top = 840 Width = 1215 End Begin Label Label11 BackColor = &H00C0C0C0& Caption = "And the time is:" ForeColor = &H00FF0000& Height = 255 Left = 600 TabIndex = 12 Top = 840 Width = 1455 End Begin Label Label9 Alignment = 2 'Center BackColor = &H00C0C0C0& ForeColor = &H00FF00FF& Height = 495 Left = 720 TabIndex = 10 Top = 360 Width = 2055 End Begin Label Label8 BackColor = &H00000000& ForeColor = &H00000000& Height = 15 Left = 0 TabIndex = 9 Top = 240 Width = 3615 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "Some Information About Windows.." FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 9.75 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H0000FFFF& Height = 255 Left = 120 TabIndex = 0 Top = 0 Width = 3495 End Declare Function RemoveMenu Lib "User" (ByVal hMenu, ByVal nPosition, ByVal wFlags) Declare Function GetSystemMenu Lib "User" (ByVal Hwnd As Integer, ByVal bRevert As Integer) As Integer Declare Function GetWinFlags Lib "Kernel" () As Long Const WF_PMODE = &H1 'In Proteceted mode? Const WF_CPU286 = &H2 'Is it a 286? Const WF_CPU386 = &H4 'Is it a 386? Const WF_CPU486 = &H8 'Is it a 486? Const WF_STANDARD = &H10 'Standard mode? Const WF_ENHANCED = &H20 'Enhanced mode? Const WF_CPU086 = &H40 'Is it a 8086 Const WF_LARGEFRAME = &H100 'LargeFrame EMS Const WF_SMALLFRAME = &H200 'SmallFrame EMS Const WF_80x87 = &H400 'Math processer Sub About_Click () AboutBox.Show 'Show AboutBox Winfo.enabled = 0 'Disable the Winfo form End Sub Sub Done_Click () End 'I think you know what this means! End Sub Sub Form_GotFocus () Done.SetFocus 'When focus goes back to Winfo form, make Done the active button End Sub Sub Form_Load () Move (Screen.width - width) \ 2, (Screen.height - height) \ 2 'Center form Dim WinFlags As Long WinFlags = GetWinFlags() If WinFlags And WF_ENHANCED Then label2.caption = "You are in Enhanced mode." Else If WinFlags And WF_STANDARD Then label2.caption = "You are in Standard mode." If WinFlags And WF_CPU386 Then label3.caption = "Your CPU is a 386." Else If WinFlags And WF_CPU286 Then label3.caption = "Your CPU is a 286." Else If WinFlags And WF_CPU486 Then label3.caption = "Your CPU is a 486." If WinFlags And WF_CPU086 Then label3.caption = "Your CPU is a 8086." If WinFlags And WF_LARGEFRAME Then label4.caption = "Lagre Frame EMS is active." Else label4.caption = "Small Frame EMS is active." If WinFlags And WF_80x87 Then label5.caption = "Math Co-processor present." Else label5.caption = "Math Co-processor not present." If WinFlags And WF_PMODE Then label7.caption = "Protected Mode - Enabled." Else label7.caption = "Protected Mode - Disabled." label6.caption = Format$(GetFreeSpace(0) \ 1024) + " KB of free Memory." GetDate End Sub Sub GetDate () Today# = Now 'Get date string and covert it to a standard format. label9.caption = "Today is " + Format$(Today#, "dddd, mmmm dd, yyyy") + " . " End Sub Sub Timer1_Timer () label10.caption = Time$ 'Put the current Time on form and keep it going. End Sub 
(.txt)