home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aboutw / about.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-19  |  15.2 KB  |  473 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   5595
  6.    ClientLeft      =   1200
  7.    ClientTop       =   840
  8.    ClientWidth     =   6495
  9.    ControlBox      =   0   'False
  10.    Height          =   6000
  11.    Icon            =   ABOUT.FRX:0000
  12.    KeyPreview      =   -1  'True
  13.    Left            =   1140
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   5595
  18.    ScaleWidth      =   6495
  19.    Top             =   495
  20.    Width           =   6615
  21.    Begin PictureBox picProductIcon 
  22.       BorderStyle     =   0  'None
  23.       Height          =   615
  24.       Left            =   210
  25.       Picture         =   ABOUT.FRX:0302
  26.       ScaleHeight     =   615
  27.       ScaleWidth      =   555
  28.       TabIndex        =   34
  29.       Top             =   360
  30.       Width           =   555
  31.    End
  32.    Begin Frame Frame3 
  33.       Caption         =   "Module"
  34.       Height          =   1065
  35.       Left            =   375
  36.       TabIndex        =   3
  37.       Top             =   1380
  38.       Width           =   5790
  39.       Begin Label lblModId 
  40.          AutoSize        =   -1  'True
  41.          Caption         =   "Module Id goes here"
  42.          Height          =   195
  43.          Left            =   1725
  44.          TabIndex        =   4
  45.          Top             =   300
  46.          Width           =   1755
  47.       End
  48.       Begin Label lblModSize 
  49.          AutoSize        =   -1  'True
  50.          Caption         =   "Module size goes here"
  51.          Height          =   195
  52.          Left            =   1725
  53.          TabIndex        =   5
  54.          Top             =   525
  55.          Width           =   1920
  56.       End
  57.       Begin Label Label1 
  58.          Alignment       =   1  'Right Justify
  59.          AutoSize        =   -1  'True
  60.          Caption         =   "Module Id:"
  61.          Height          =   195
  62.          Index           =   0
  63.          Left            =   225
  64.          TabIndex        =   6
  65.          Top             =   300
  66.          Width           =   1440
  67.       End
  68.       Begin Label Label1 
  69.          Alignment       =   1  'Right Justify
  70.          AutoSize        =   -1  'True
  71.          Caption         =   "Size:"
  72.          Height          =   195
  73.          Index           =   1
  74.          Left            =   225
  75.          TabIndex        =   7
  76.          Top             =   525
  77.          Width           =   1440
  78.       End
  79.       Begin Label lblModDate 
  80.          AutoSize        =   -1  'True
  81.          Caption         =   "Module date goes here"
  82.          Height          =   195
  83.          Left            =   1725
  84.          TabIndex        =   8
  85.          Top             =   750
  86.          Width           =   1965
  87.       End
  88.       Begin Label Label1 
  89.          Alignment       =   1  'Right Justify
  90.          AutoSize        =   -1  'True
  91.          Caption         =   "Date/Time:"
  92.          Height          =   195
  93.          Index           =   2
  94.          Left            =   225
  95.          TabIndex        =   18
  96.          Top             =   750
  97.          Width           =   1440
  98.       End
  99.    End
  100.    Begin Frame Frame2 
  101.       Caption         =   "Environment"
  102.       Height          =   1740
  103.       Left            =   375
  104.       TabIndex        =   26
  105.       Top             =   2400
  106.       Width           =   5790
  107.       Begin Label Label1 
  108.          Alignment       =   1  'Right Justify
  109.          AutoSize        =   -1  'True
  110.          Caption         =   "Current directory:"
  111.          Height          =   195
  112.          Index           =   12
  113.          Left            =   150
  114.          TabIndex        =   19
  115.          Top             =   1425
  116.          Width           =   1515
  117.       End
  118.       Begin Label lblStatus 
  119.          AutoSize        =   -1  'True
  120.          Caption         =   "c:\this\is\current\dir"
  121.          Height          =   195
  122.          Index           =   9
  123.          Left            =   1725
  124.          TabIndex        =   20
  125.          Top             =   1425
  126.          Width           =   1785
  127.       End
  128.       Begin Label Label1 
  129.          Alignment       =   1  'Right Justify
  130.          AutoSize        =   -1  'True
  131.          Caption         =   "System directory:"
  132.          Height          =   195
  133.          Index           =   11
  134.          Left            =   165
  135.          TabIndex        =   21
  136.          Top             =   1200
  137.          Width           =   1500
  138.       End
  139.       Begin Label lblStatus 
  140.          AutoSize        =   -1  'True
  141.          Caption         =   "c:\this\is\system\dir"
  142.          Height          =   195
  143.          Index           =   8
  144.          Left            =   1725
  145.          TabIndex        =   22
  146.          Top             =   1200
  147.          Width           =   1755
  148.       End
  149.       Begin Label lblStatus 
  150.          AutoSize        =   -1  'True
  151.          Caption         =   "9.9a"
  152.          Height          =   195
  153.          Index           =   6
  154.          Left            =   1725
  155.          TabIndex        =   23
  156.          Top             =   525
  157.          Width           =   390
  158.       End
  159.       Begin Label Label1 
  160.          Alignment       =   1  'Right Justify
  161.          AutoSize        =   -1  'True
  162.          Caption         =   "DOS version:"
  163.          Height          =   195
  164.          Index           =   9
  165.          Left            =   75
  166.          TabIndex        =   24
  167.          Top             =   525
  168.          Width           =   1590
  169.       End
  170.       Begin Label Label1 
  171.          Alignment       =   1  'Right Justify
  172.          AutoSize        =   -1  'True
  173.          Caption         =   "Processor:"
  174.          Height          =   195
  175.          Index           =   8
  176.          Left            =   75
  177.          TabIndex        =   25
  178.          Top             =   300
  179.          Width           =   1590
  180.       End
  181.       Begin Label lblStatus 
  182.          AutoSize        =   -1  'True
  183.          Caption         =   "X0X86"
  184.          Height          =   195
  185.          Index           =   5
  186.          Left            =   1725
  187.          TabIndex        =   27
  188.          Top             =   300
  189.          Width           =   570
  190.       End
  191.       Begin Label Label1 
  192.          Alignment       =   1  'Right Justify
  193.          AutoSize        =   -1  'True
  194.          Caption         =   "Windows directory:"
  195.          Height          =   195
  196.          Index           =   10
  197.          Left            =   30
  198.          TabIndex        =   28
  199.          Top             =   975
  200.          Width           =   1635
  201.       End
  202.       Begin Label lblStatus 
  203.          AutoSize        =   -1  'True
  204.          Caption         =   "c:\this\is\win\dir"
  205.          Height          =   195
  206.          Index           =   7
  207.          Left            =   1725
  208.          TabIndex        =   29
  209.          Top             =   975
  210.          Width           =   1470
  211.       End
  212.       Begin Label Label1 
  213.          Alignment       =   1  'Right Justify
  214.          AutoSize        =   -1  'True
  215.          Caption         =   "Windows version:"
  216.          Height          =   195
  217.          Index           =   6
  218.          Left            =   75
  219.          TabIndex        =   30
  220.          Top             =   750
  221.          Width           =   1590
  222.       End
  223.       Begin Label lblStatus 
  224.          AutoSize        =   -1  'True
  225.          Caption         =   "9.9a"
  226.          Height          =   195
  227.          Index           =   4
  228.          Left            =   1725
  229.          TabIndex        =   31
  230.          Top             =   750
  231.          Width           =   390
  232.       End
  233.    End
  234.    Begin Frame Frame1 
  235.       Caption         =   "Free Resources"
  236.       Height          =   1290
  237.       Left            =   375
  238.       TabIndex        =   17
  239.       Top             =   4125
  240.       Width           =   5790
  241.       Begin Label Label1 
  242.          Alignment       =   1  'Right Justify
  243.          AutoSize        =   -1  'True
  244.          Caption         =   "Memory:"
  245.          Height          =   195
  246.          Index           =   3
  247.          Left            =   150
  248.          TabIndex        =   9
  249.          Top             =   300
  250.          Width           =   1515
  251.       End
  252.       Begin Label lblStatus 
  253.          AutoSize        =   -1  'True
  254.          Caption         =   "9,999,999,999 bytes."
  255.          Height          =   195
  256.          Index           =   0
  257.          Left            =   1725
  258.          TabIndex        =   10
  259.          Top             =   300
  260.          Width           =   1815
  261.       End
  262.       Begin Label Label1 
  263.          Alignment       =   1  'Right Justify
  264.          AutoSize        =   -1  'True
  265.          Caption         =   "System:"
  266.          Height          =   195
  267.          Index           =   4
  268.          Left            =   225
  269.          TabIndex        =   11
  270.          Top             =   525
  271.          Width           =   1440
  272.       End
  273.       Begin Label lblStatus 
  274.          AutoSize        =   -1  'True
  275.          Caption         =   "999%"
  276.          Height          =   195
  277.          Index           =   1
  278.          Left            =   1725
  279.          TabIndex        =   12
  280.          Top             =   525
  281.          Width           =   465
  282.       End
  283.       Begin Label Label1 
  284.          Alignment       =   1  'Right Justify
  285.          AutoSize        =   -1  'True
  286.          Caption         =   "User:"
  287.          Height          =   195
  288.          Index           =   5
  289.          Left            =   450
  290.          TabIndex        =   13
  291.          Top             =   750
  292.          Width           =   1215
  293.       End
  294.       Begin Label lblStatus 
  295.          AutoSize        =   -1  'True
  296.          Caption         =   "999%"
  297.          Height          =   195
  298.          Index           =   2
  299.          Left            =   1725
  300.          TabIndex        =   14
  301.          Top             =   750
  302.          Width           =   465
  303.       End
  304.       Begin Label Label1 
  305.          Alignment       =   1  'Right Justify
  306.          AutoSize        =   -1  'True
  307.          Caption         =   "GDI:"
  308.          Height          =   195
  309.          Index           =   7
  310.          Left            =   525
  311.          TabIndex        =   15
  312.          Top             =   975
  313.          Width           =   1140
  314.       End
  315.       Begin Label lblStatus 
  316.          AutoSize        =   -1  'True
  317.          Caption         =   "999%"
  318.          Height          =   195
  319.          Index           =   3
  320.          Left            =   1725
  321.          TabIndex        =   16
  322.          Top             =   975
  323.          Width           =   465
  324.       End
  325.    End
  326.    Begin CommandButton cmdOkay 
  327.       Cancel          =   -1  'True
  328.       Caption         =   "E&xit"
  329.       Default         =   -1  'True
  330.       Height          =   315
  331.       Left            =   5700
  332.       TabIndex        =   0
  333.       Top             =   150
  334.       Width           =   735
  335.    End
  336.    Begin Label lblOrgId 
  337.       AutoSize        =   -1  'True
  338.       Caption         =   "OrgId"
  339.       Height          =   195
  340.       Left            =   1020
  341.       TabIndex        =   33
  342.       Top             =   630
  343.       Width           =   480
  344.    End
  345.    Begin Label lblUserId 
  346.       AutoSize        =   -1  'True
  347.       Caption         =   "UserId"
  348.       Height          =   195
  349.       Left            =   1020
  350.       TabIndex        =   32
  351.       Top             =   420
  352.       Width           =   570
  353.    End
  354.    Begin Line Line1 
  355.       BorderWidth     =   2
  356.       X1              =   150
  357.       X2              =   6375
  358.       Y1              =   1275
  359.       Y2              =   1275
  360.    End
  361.    Begin Label lblCopyright 
  362.       AutoSize        =   -1  'True
  363.       Caption         =   "Copyright goes here"
  364.       Height          =   195
  365.       Left            =   1020
  366.       TabIndex        =   2
  367.       Top             =   840
  368.       Width           =   1710
  369.    End
  370.    Begin Label lblVersion 
  371.       AutoSize        =   -1  'True
  372.       Caption         =   "Version goes here"
  373.       Height          =   195
  374.       Left            =   1020
  375.       TabIndex        =   1
  376.       Top             =   210
  377.       Width           =   1545
  378.    End
  379. Option Explicit
  380.     Const GFSR_GDIRESOURCES = &H1
  381.     Const GFSR_SYSTEMRESOURCES = &H0
  382.     Const GFSR_USERRESOURCES = &H2
  383.     Const WF_ENHANCED = &H20
  384.     Const WF_80x87 = &H400
  385.     Const WF_CPU086 = &H40
  386.     Const WF_CPU186 = &H80
  387.     Const WF_CPU286 = &H2
  388.     Const WF_CPU386 = &H4
  389.     Const WF_CPU486 = &H8
  390. Sub cmdOkay_Click ()
  391.     Unload Me
  392. End Sub
  393. Sub Form_Load ()
  394.     Dim Rc%
  395.     Rc% = AppIcon2Pic%(picProductIcon)
  396.     FormCenter Me
  397.     Call LoadTheList
  398. End Sub
  399. Sub LoadTheList ()
  400.     Dim hInst%
  401.     Dim FileName$
  402.     Dim TimeStamp$
  403.     Dim flagnum&
  404.     Dim vernum&
  405.     Dim verword%
  406.     Dim Msg$
  407.     Dim UserIs$
  408.     Dim OrgIs$
  409.     Dim hUser%, Result%
  410.     lblVersion.Caption = "This product is licensed to:"
  411.     hUser% = GetModuleHandle%("USER")
  412.     UserIs$ = String$(32, 0)
  413.     Result% = LoadString%(hUser%, 514, UserIs$, Len(UserIs$))
  414.     UserIs$ = Left(UserIs$, InStr(UserIs$, Chr$(0)) - 1)
  415.     If UserIs$ = "" Then
  416.         lblUserId.Visible = False
  417.     Else
  418.         lblUserId.Caption = UserIs$
  419.     End If
  420.     OrgIs$ = String$(32, 0)
  421.     Result% = LoadString%(hUser%, 515, OrgIs$, Len(OrgIs$))
  422.     OrgIs$ = Left(OrgIs$, InStr(OrgIs$, Chr$(0)) - 1)
  423.     If OrgIs$ = "" Then
  424.         lblOrgId.Visible = False
  425.     Else
  426.         lblOrgId.Caption = OrgIs$
  427.     End If
  428.     lblCopyright.Caption = "Copyright 
  429.  1994."
  430.     hInst% = GetWindowWord%(Me.hWnd, GWW_HINSTANCE)
  431.     FileName$ = ExeName$(hInst%)
  432.     TimeStamp$ = FileDateTime(FileName$)
  433.     lblModId.Caption = FileName$
  434.     lblModSize.Caption = Format$(FileLen(FileName$), "###,###,##0") & " bytes."
  435.     lblModDate.Caption = Format$(TimeStamp$, "dddddd") & " / " & Format$(TimeStamp$, "h:mm AM/PM") & "."
  436.     lblStatus(0).Caption = FormatLong$(GetFreeSpace&(0)) & " bytes."
  437.     lblStatus(1).Caption = Str$(GetFreeSystemResources%(GFSR_SYSTEMRESOURCES)) & "%"
  438.     lblStatus(2).Caption = Str$(GetFreeSystemResources%(GFSR_USERRESOURCES)) & "%"
  439.     lblStatus(3).Caption = Str$(GetFreeSystemResources%(GFSR_GDIRESOURCES)) & "%"
  440.     lblStatus(7).Caption = WinDir$()
  441.     lblStatus(8).Caption = SysDir$()
  442.     lblStatus(9).Caption = CurDir$
  443.     flagnum& = GetWinFlags&()
  444.     vernum& = GetVersion&()
  445.     verword% = CInt(vernum& / &H10000)
  446.     lblStatus(6).Caption = Format$(verword% \ 256) & "." & Format$(verword% And &HFF)
  447.     verword% = CInt(vernum& And &HFFFF&)
  448.     Msg$ = Format$(verword% And &HFF) & "." & Format$(CInt(verword% / 256))
  449.     If flagnum& And WF_ENHANCED Then
  450.         Msg$ = Msg$ & " in 386-enhanced mode."
  451.     End If
  452.     lblStatus(4).Caption = Msg$
  453.     Msg$ = ""
  454.     If flagnum& And WF_CPU086 Then
  455.         Msg$ = "8086"
  456.     ElseIf flagnum& And WF_CPU186 Then
  457.         Msg$ = "80186"
  458.     ElseIf flagnum& And WF_CPU286 Then
  459.         Msg$ = "80286"
  460.     ElseIf flagnum& And WF_CPU386 Then
  461.         Msg$ = "80386"
  462.     ElseIf flagnum& And WF_CPU486 Then
  463.         Msg$ = "80486"
  464.     End If
  465.     If flagnum& And WF_80x87 Then
  466.         Msg$ = Msg$ & " with 80x87 coprocessor."
  467.     End If
  468.     lblStatus(5).Caption = Msg$
  469.     'If flagnum& And WF_PAGING Then Print "Memory paging active"
  470.     'If flagnum& And WF_PMODE Then Print "Protected mode operation"
  471.     'If flagnum& And WF_WLO Then Print "Windows emulation in non-Windows system"
  472. End Sub
  473.