demo.frm

vb中shell API的应用实例 vb中shell API的应用实例

VERSION 5.00
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Demo of some undocumented Shell32.dll functions..."
   ClientHeight    =   7455
   ClientLeft      =   1770
   ClientTop       =   990
   ClientWidth     =   7635
   ClipControls    =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   7455
   ScaleWidth      =   7635
   Begin VB.CommandButton cmdShutDown 
      Caption         =   "Shut Down Windows dialog..."
      Height          =   555
      Left            =   6000
      TabIndex        =   16
      Top             =   6780
      Width           =   1515
   End
   Begin VB.Frame fraRunDialog 
      Caption         =   "Run dialog"
      ClipControls    =   0   'False
      Height          =   1935
      Left            =   2460
      TabIndex        =   19
      Top             =   60
      Width           =   5055
      Begin VB.CheckBox chkRunNoMRU 
         Caption         =   "No previous MRU"
         Height          =   225
         Left            =   2040
         TabIndex        =   8
         Top             =   1545
         Width           =   1650
      End
      Begin VB.CheckBox chkRunDefaults 
         Caption         =   "Use defaults"
         Height          =   225
         Left            =   720
         TabIndex        =   7
         Top             =   1545
         Width           =   1275
      End
      Begin VB.CommandButton cmdRunDlg 
         Caption         =   "Execute..."
         Height          =   315
         Left            =   3840
         TabIndex        =   9
         Top             =   1500
         Width           =   1095
      End
      Begin VB.TextBox txtRunTitle 
         Height          =   315
         Left            =   720
         TabIndex        =   5
         Text            =   "txtRunTitle"
         Top             =   240
         Width           =   4215
      End
      Begin VB.TextBox txtRunPrompt 
         Height          =   735
         Left            =   720
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   6
         Text            =   "Demo.frx":0000
         Top             =   660
         Width           =   4215
      End
      Begin VB.Label lblRunPrompt 
         Caption         =   "Prompt:"
         Height          =   225
         Left            =   120
         TabIndex        =   21
         Top             =   705
         Width           =   555
      End
      Begin VB.Label lblRunTitle 
         Caption         =   "Title:"
         Height          =   225
         Left            =   120
         TabIndex        =   20
         Top             =   285
         Width           =   555
      End
   End
   Begin VB.Frame fraRestartDlg 
      Caption         =   "Restart system message box"
      ClipControls    =   0   'False
      Height          =   1515
      Left            =   2460
      TabIndex        =   22
      Top             =   2070
      Width           =   5055
      Begin VB.ComboBox cboRestartOp 
         Height          =   315
         Left            =   960
         TabIndex        =   11
         Text            =   "cboRestartOp"
         Top             =   1080
         Width           =   2055
      End
      Begin VB.TextBox txtRestartPrompt 
         Height          =   735
         Left            =   720
         MultiLine       =   -1  'True
         ScrollBars      =   3  'Both
         TabIndex        =   10
         Text            =   "Demo.frx":000F
         Top             =   240
         Width           =   4215
      End
      Begin VB.CommandButton cmdRestartDlg 
         Caption         =   "Execute..."
         Height          =   315
         Left            =   3840
         TabIndex        =   12
         Top             =   1080
         Width           =   1095
      End
      Begin VB.Label lblRestartPrmpt 
         Caption         =   "Prompt:"
         Height          =   225
         Left            =   120
         TabIndex        =   23
         Top             =   285
         Width           =   555
      End
      Begin VB.Label lblRestartOp 
         Caption         =   "Operation:"
         Height          =   225
         Left            =   120
         TabIndex        =   24
         Top             =   1125
         Width           =   795
      End
   End
   Begin VB.FileListBox File1 
      Height          =   2040
      Left            =   120
      TabIndex        =   2
      Top             =   2790
      Width           =   2175
   End
   Begin VB.DirListBox Dir1 
      Height          =   2055
      Left            =   120
      TabIndex        =   1
      Top             =   600
      Width           =   2175
   End
   Begin VB.DriveListBox Drive1 
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   150
      Width           =   2175
   End
   Begin VB.Frame fraIconDlg 
      Caption         =   "Change Icon dialog"
      ClipControls    =   0   'False
      Height          =   1335
      Left            =   2460
      TabIndex        =   25
      Top             =   3660
      Width           =   5055
      Begin VB.PictureBox picSmallIcon 
         AutoRedraw      =   -1  'True
         ClipControls    =   0   'False
         Height          =   315
         Left            =   2220
         ScaleHeight     =   17
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   18
         TabIndex        =   29
         TabStop         =   0   'False
         Top             =   660
         Width           =   330
      End
      Begin VB.TextBox txtIconIdx 
         Height          =   285
         Left            =   960
         TabIndex        =   14
         Text            =   "txtIconIdx"
         Top             =   660
         Width           =   375
      End
      Begin VB.PictureBox picLargeIcon 
         AutoRedraw      =   -1  'True
         ClipControls    =   0   'False
         Height          =   555
         Left            =   2820
         ScaleHeight     =   33
         ScaleMode       =   3  'Pixel
         ScaleWidth      =   35
         TabIndex        =   30
         TabStop         =   0   'False
         Top             =   660
         Width           =   585
      End
      Begin VB.CommandButton cmdIconDlg 
         Caption         =   "Execute..."
         Height          =   315
         Left            =   3840
         TabIndex        =   15
         Top             =   900
         Width           =   1095
      End
      Begin VB.TextBox txtIconPath 
         Height          =   315
         Left            =   720
         TabIndex        =   13
         Text            =   "txtIconPath"
         Top             =   240
         Width           =   4215
      End
      Begin VB.Label lblIconPath 
         Caption         =   "Path:"
         Height          =   225
         Left            =   120
         TabIndex        =   26
         Top             =   285
         Width           =   555
      End
      Begin VB.Label lblIcons 
         Caption         =   "Icons:"
         Height          =   225
         Left            =   1620
         TabIndex        =   28
         Top             =   705
         Width           =   495
      End
      Begin VB.Label lblIconIdx 
         Caption         =   "Icon index:"
         Height          =   225
         Left            =   120
         TabIndex        =   27
         Top             =   705
         Width           =   855
      End
   End
   Begin VB.Frame fraPaths 
      Caption         =   "Path functions"
      ClipControls    =   0   'False
      Height          =   2265
      Left            =   120
      TabIndex        =   17
      Top             =   5070
      Width           =   5715
      Begin VB.CommandButton cmdPaths 
         Caption         =   "Execute"
         Height          =   315
         Left            =   4500
         TabIndex        =   4
         Top             =   240
         Width           =   1095
      End
      Begin VB.TextBox txtPaths 
         Height          =   315
         Left            =   120
         TabIndex        =   3
         Text            =   "txtPaths"
         Top             =   240
         Width           =   4275
      End
      Begin VB.PictureBox picPaths 
         Appearance      =   0  'Flat
         BorderStyle     =   0  'None
         ClipControls    =   0   'False
         ForeColor       =   &H80000008&
         Height          =   1575