home *** CD-ROM | disk | FTP | other *** search
/ Computerworld 1996 March / Computerworld_1996-03_cd.bin / idg_cd3 / utility / ssetup26 / tmpform.fr_ / TMPFORM.FRM (.txt)
Encoding:
Visual Basic Form  |  1995-07-27  |  3.3 KB  |  94 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    ClientHeight    =   1656
  6.    ClientLeft      =   1080
  7.    ClientTop       =   1512
  8.    ClientWidth     =   4500
  9.    ControlBox      =   0   'False
  10.    Height          =   1980
  11.    Left            =   1032
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   1656
  17.    ScaleWidth      =   4500
  18.    Top             =   1236
  19.    Width           =   4596
  20.    Begin Label Etiquette1 
  21.       Alignment       =   2  'Center
  22.       BackColor       =   &H00C0C0C0&
  23.       Caption         =   "Initialization, please wait..."
  24.       Height          =   255
  25.       Left            =   480
  26.       TabIndex        =   0
  27.       Top             =   600
  28.       Width           =   3375
  29.    End
  30. Sub Form_GotFocus ()
  31. a% = BringWindowToTop(Form2.hwnd)
  32. End Sub
  33. Sub Form_Load ()
  34. bRunningSetup% = 0
  35. FirstCanClose% = 0
  36. Form2.Move (Screen.Height / 2) - (Height / 2), (Screen.Width / 2) - (Width / 2), Width, Height
  37. b% = BringWindowToTop(Form2.hwnd)
  38. szBuffer$ = String$(20, 0)
  39. a% = GetProfileString("intl", "sLanguage", "", szBuffer$, 4)
  40. iZero% = InStr(szBuffer$, Chr$(0))
  41. szTemp$ = Left$(szBuffer$, iZero% - 1)
  42. If (szTemp$ = "fra") Or (szTemp$ = "FRA") Then
  43. iLanguage% = LANGUAGE_FRENCH
  44. Etiquette1.Caption = "Initialisation, veuillez patienter..."
  45. iLanguage% = LANGUAGE_ENGLISH
  46. End If
  47. bIsSetupOK% = SetupInitialize(szYourName$, szPassword$, iLanguage%, szOriginalPath$, szTempSetupPath$)
  48. If (bIsSetupOK% = 0) Then
  49. If (iLanguage% = LANGUAGE_FRENCH) Then
  50. MsgBox "Erreur d' initialisation..."
  51. MsgBox "Initialization error..."
  52. End If
  53. FirstCanClose% = 1
  54. End If
  55. a% = SetupSetTitle(szSetupBoxTitle$)
  56. ' -------------------------------------------------------------
  57. ' Using a system batch (shared files)
  58. ' -------------------------------------------------------------
  59. If (bUseSharedBatch% = 1) Then
  60. szBuffer$ = String$(256, 0)
  61. a% = GetWindowsDirectory(szBuffer$, 255)
  62. iZero% = InStr(szBuffer$, Chr$(0))
  63. szTemp$ = Left$(szBuffer$, iZero% - 1)
  64. szBuffer$ = szTemp$
  65. If (Len(szBuffer$)) > 3 Then
  66.  szBuffer$ = szBuffer$ + "\"
  67. End If
  68. szWinDir$ = szBuffer$
  69. szUserBatchFile$ = Left$(szWinDir$, 3)
  70. szUserBatchDir$ = szUserBatchFile$ + "SYSSETUP.TMP\"
  71. szUserBatchFile$ = szUserBatchFile$ + "SYSSETUP.TMP\SYSSETUP.BAT"
  72. a% = SetSharedBatchFile(szUserBatchFile$, szUserBatchDir$)
  73. End If
  74. ' -------------------------------------------------------------
  75. ' Other settings
  76. ' -------------------------------------------------------------
  77. a% = SetPatternBrushStandard(iBackgroundPaper%)
  78. a% = SetupSetBeepMode(bBeepMode%)
  79. a% = SetVerifyMode(bVerifyMode%)
  80. If (iPanel1Bitmap% = 0) Then
  81. If (szPanel1Title$ <> "") Then
  82. a% = SetTextLogo(szPanel1Title$, szPanel1TitleFont$, iPanel1TitleSize%, lPanel1TitleColor&, bPanel1Title3D%, bPanel1TitleBold%)
  83. If (szPanel1Detail$ <> "") Then
  84. a% = SetTextDetail(szPanel1Detail$, szPanel1DetailFont$, iPanel1DetailSize%, lPanel1DetailColor&, bPanel1Detail3D%, bPanel1DetailBold%)
  85. End If
  86. a% = SetLogoType(1)
  87. End If
  88. 'a% = SetLogo(hInstance%, iPanel1Bitmap)
  89. 'SetLogoType( 0)
  90. End If
  91. FirstCanClose% = 1
  92. bRunningSetup% = 1
  93. End Sub
  94.