home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Run_a_SQL_400771272001.psc / DTSAbout.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-12-07  |  6.3 KB  |  185 lines
  1. VERSION 5.00
  2. Begin VB.Form DTSAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About MyApp"
  5.    ClientHeight    =   3555
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1935
  8.    ClientWidth     =   5790
  9.    ClipControls    =   0   'False
  10.    Icon            =   "DTSAbout.frx":0000
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2453.724
  15.    ScaleMode       =   0  'User
  16.    ScaleWidth      =   5437.109
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.PictureBox picIcon 
  20.       AutoSize        =   -1  'True
  21.       ClipControls    =   0   'False
  22.       Height          =   540
  23.       Left            =   165
  24.       Picture         =   "DTSAbout.frx":030A
  25.       ScaleHeight     =   337.12
  26.       ScaleMode       =   0  'User
  27.       ScaleWidth      =   337.12
  28.       TabIndex        =   1
  29.       Top             =   150
  30.       Width           =   540
  31.    End
  32.    Begin VB.CommandButton cmdOK 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "OK"
  35.       Default         =   -1  'True
  36.       Height          =   345
  37.       Left            =   4245
  38.       TabIndex        =   0
  39.       Top             =   2625
  40.       Width           =   1260
  41.    End
  42.    Begin VB.CommandButton cmdSysInfo 
  43.       Caption         =   "&System Info..."
  44.       Height          =   345
  45.       Left            =   4260
  46.       TabIndex        =   2
  47.       Top             =   3075
  48.       Width           =   1245
  49.    End
  50.    Begin VB.Label lblMailMe 
  51.       AutoSize        =   -1  'True
  52.       BackColor       =   &H00C0C0C0&
  53.       BackStyle       =   0  'Transparent
  54.       Caption         =   "chriskesler1@hotmail.com"
  55.       BeginProperty Font 
  56.          Name            =   "Arial"
  57.          Size            =   8.25
  58.          Charset         =   0
  59.          Weight          =   400
  60.          Underline       =   -1  'True
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       ForeColor       =   &H00FF0000&
  65.       Height          =   210
  66.       Left            =   240
  67.       TabIndex        =   7
  68.       Top             =   3240
  69.       Width           =   1890
  70.    End
  71.    Begin VB.Line Line1 
  72.       BorderColor     =   &H00808080&
  73.       BorderStyle     =   6  'Inside Solid
  74.       Index           =   1
  75.       X1              =   84.515
  76.       X2              =   5309.398
  77.       Y1              =   1687.583
  78.       Y2              =   1687.583
  79.    End
  80.    Begin VB.Label lblDescription 
  81.       BackStyle       =   0  'Transparent
  82.       Caption         =   "App Description"
  83.       BeginProperty Font 
  84.          Name            =   "Arial"
  85.          Size            =   9.75
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       ForeColor       =   &H00000000&
  93.       Height          =   1170
  94.       Left            =   1050
  95.       TabIndex        =   3
  96.       Top             =   1125
  97.       Width           =   3885
  98.    End
  99.    Begin VB.Label lblTitle 
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "Application Title"
  102.       BeginProperty Font 
  103.          Name            =   "Agatha"
  104.          Size            =   15.75
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00000000&
  112.       Height          =   480
  113.       Left            =   1050
  114.       TabIndex        =   5
  115.       Top             =   240
  116.       Width           =   3885
  117.    End
  118.    Begin VB.Line Line1 
  119.       BorderColor     =   &H00FFFFFF&
  120.       BorderWidth     =   2
  121.       Index           =   0
  122.       X1              =   98.6
  123.       X2              =   5309.398
  124.       Y1              =   1697.936
  125.       Y2              =   1697.936
  126.    End
  127.    Begin VB.Label lblVersion 
  128.       BackStyle       =   0  'Transparent
  129.       Caption         =   "Version"
  130.       BeginProperty Font 
  131.          Name            =   "Agatha"
  132.          Size            =   15.75
  133.          Charset         =   0
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.       Height          =   405
  140.       Left            =   1035
  141.       TabIndex        =   6
  142.       Top             =   705
  143.       Width           =   3885
  144.    End
  145.    Begin VB.Label lblDisclaimer 
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   $"DTSAbout.frx":0BD4
  148.       ForeColor       =   &H00000000&
  149.       Height          =   600
  150.       Left            =   240
  151.       TabIndex        =   4
  152.       Top             =   2625
  153.       Width           =   3915
  154.    End
  155. Attribute VB_Name = "DTSAbout"
  156. Attribute VB_GlobalNameSpace = False
  157. Attribute VB_Creatable = False
  158. Attribute VB_PredeclaredId = True
  159. Attribute VB_Exposed = False
  160. Option Explicit
  161. ' Reg Key Security Options...
  162. Const READ_CONTROL = &H20000
  163. Const KEY_QUERY_VALUE = &H1
  164. Const KEY_SET_VALUE = &H2
  165. Const KEY_CREATE_SUB_KEY = &H4
  166. Const KEY_ENUMERATE_SUB_KEYS = &H8
  167. Const KEY_NOTIFY = &H10
  168. Const KEY_CREATE_LINK = &H20
  169. Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _
  170.                        KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _
  171.                        KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL
  172.                      
  173. ' Reg Key ROOT Types...
  174. Const HKEY_LOCAL_MACHINE = &H80000002
  175. Const ERROR_SUCCESS = 0
  176. Const REG_SZ = 1                         ' Unicode nul terminated string
  177. Const REG_DWORD = 4                      ' 32-bit number
  178. Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location"
  179. Const gREGVALSYSINFOLOC = "MSINFO"
  180. Const gREGKEYSYSINFO = "SOFTWARE\Microsoft\Shared Tools\MSINFO"
  181. Const gREGVALSYSINFO = "PATH"
  182. Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRe_HeAs Long,Long, ByVal lpSubKeyAs Long, Byg, B  Italic          =   GVA + _
  183.           0p8abR_SUCCESS = 0
  184. Const REG_SZ = 1                         ' Unicode nul Up,Long, B
  185.