form1.frm

给CDImage一个界面

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "CDImageEW"
   ClientHeight    =   4200
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5085
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4200
   ScaleWidth      =   5085
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog ComDlg 
      Left            =   4440
      Top             =   120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CheckBox Check4 
      Caption         =   "文件名不转换成大写"
      Height          =   255
      Left            =   240
      TabIndex        =   12
      Top             =   3720
      Value           =   1  'Checked
      Width           =   2055
   End
   Begin VB.TextBox T 
      Height          =   375
      Index           =   1
      Left            =   240
      TabIndex        =   11
      Text            =   "卷标"
      Top             =   120
      Width           =   2895
   End
   Begin VB.CommandButton Command4 
      Caption         =   "选择输出文件"
      Height          =   495
      Left            =   4200
      TabIndex        =   10
      Top             =   2280
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "引导记录"
      Height          =   375
      Left            =   4200
      TabIndex        =   9
      Top             =   1200
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "选择目录"
      Height          =   375
      Left            =   4200
      TabIndex        =   8
      Top             =   600
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "生成 ISO"
      Height          =   375
      Left            =   3480
      TabIndex        =   7
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CheckBox Check3 
      Caption         =   "逐字节判断重复文件"
      Height          =   255
      Left            =   240
      TabIndex        =   6
      Top             =   3360
      Width           =   2055
   End
   Begin VB.CheckBox Check2 
      Caption         =   "允许长文件名"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   3000
      Value           =   1  'Checked
      Width           =   1575
   End
   Begin VB.TextBox T 
      Height          =   375
      Index           =   5
      Left            =   240
      TabIndex        =   4
      Top             =   2400
      Width           =   3855
   End
   Begin VB.CheckBox Check1 
      Caption         =   "统一时间"
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   1800
      Width           =   1095
   End
   Begin VB.TextBox T 
      Height          =   375
      Index           =   4
      Left            =   1440
      TabIndex        =   2
      Top             =   1800
      Width           =   2655
   End
   Begin VB.TextBox T 
      Height          =   375
      Index           =   3
      Left            =   240
      TabIndex        =   1
      Top             =   1200
      Width           =   3855
   End
   Begin VB.TextBox T 
      Height          =   375
      Index           =   2
      Left            =   240
      TabIndex        =   0
      Top             =   600
      Width           =   3855
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type BROWSEINFO
   hOwner           As Long
   pidlRoot         As Long
   pszDisplayName   As String
   lpszTitle        As String
   ulFlags          As Long
   lpfn             As Long
   lParam           As Long
   iImage           As Long
End Type
Private pidl As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Private Sub Check1_Click()
    T(4).Text = Month(Date) & "/" & Day(Date) & "/" & Format(Year(Date)) & "," & Format(Time, "long time")
End Sub

Private Sub Command1_Click()
Dim iserr As String
If Dir(T(2), vbDirectory) = "" And T(2) > "" Then iserr = "请选择目录,你输入的目录不存在"
If Dir(T(3)) = "" Then iserr = "找不到引导记录：" & T(3)
If Len(T(5)) = 0 Then iserr = "请选择输出文件！"
If iserr > "" Then MsgBox iserr: Exit Sub

Dim lbl As String, sPath As String, boot As String, sTime As String, _
FName As String, UseLong As String, ByteCmp As String, isUCase As String, _
Trans As String
        lbl = " -l" & T(1)
        sPath = " " & Chr(34) & T(2) & Chr(34)
        FName = " " & T(5)
        If T(3) <> "" Then boot = " -b" & T(3): FileCopy T(3), T(2) Else boot = ""
        If Check1.Value = 1 Then sTime = " -t" & T(4) Else sTime = ""
        If Check2.Value = 1 Then UseLong = " -n" Else UseLong = ""
        If Check3.Value = 1 Then Trans = " -oc" Else Trans = "-o"
        If Check4.Value = 1 Then isUCase = " -d" Else UseLong = ""
    Shell App.path & "\cdimage.exe -m" & lbl & boot & sTime & UseLong & Trans & _
        isUCase & sPath & FName
End Sub

  Private Sub Command2_Click()
  Dim bi As BROWSEINFO
  Dim r As Long
  Dim pidl As Long
  Dim path As String
  Dim pos As Integer
  bi.hOwner = Me.hWnd
  bi.pidlRoot = 0&
  bi.lpszTitle = "请选择文件夹："
  bi.ulFlags = &H1
  pidl = SHBrowseForFolder(bi)
  path = Space$(512)
  r = SHGetPathFromIDList(ByVal pidl&, ByVal path)
  If r Then
        pos = InStr(path, Chr$(0))
        T(2) = Left(path, pos - 1)
  'Else: T(2) = ""
  End If
  End Sub


Private Sub Command3_Click()
    ComDlg.Filter = "*.img;*.ima;*.bin|*.img;*.ima;*.bin|*.*|*.*"
    ComDlg.ShowOpen
    T(3) = ComDlg.FileName
End Sub

Private Sub Command4_Click()
    ComDlg.Filter = "*.iso|*.iso|*.*|*.*"
    ComDlg.ShowSave
    T(5) = ComDlg.FileName
End Sub


Private Sub T_GotFocus(Index As Integer)
    T(Index).SelStart = 0
    T(Index).SelLength = Len(T(Index))
End Sub