Thảo luận  Các bước căn bản để tạo Win10PE từ tools WinBuilder-WIN10XPE, mời các Pro vào góp ý thêm.

#NoTrayIcon

Global $RamDisk = 'B:' ;Thay bằng ký tự khác nếu RamDisk khác ổ B: <Chỉ áp dụng khi mount file wim>

_MyApps() ;Mount Apps của LVT491 ^^

;_HCApps64() ;Mount Apps của Hoàn Chiến

;_ADApps64() ;Mount Apps của AnhDV

;_ADAppsP64() ;Mount AppsP của AnhDV

;==> Sử dụng cái nào thì bỏ dấu ; ở đầu các câu lệnh trên đi. Chỉ nên mount và sử dụng 01 gói Apps


;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Func _MyApps()
    Local $pstart = _PSTART_Shortcut('Apps\PSTART.exe')
    If $pstart = Null Then
        If _Mount_ISO('Apps.iso') = True Then
            $pstart = _PSTART_Shortcut('Apps\PSTART.exe')
            _PECMD_Load($pstart, 'Apps.wcs')
        EndIf
    Else    
        _PECMD_Load($pstart, 'Apps.wcs')
    EndIf
    ;_MyShortcut()
EndFunc

;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;Không quan tâm các lệnh dưới này nếu không hiểu :))

Func _ADApps64()
    ;AnhDV
    Local $pstart = _PSTART_Shortcut('Apps\PSTART.exe')
    If $pstart = Null Then
        If _Mount_WIM('Apps.wim', 2, $RamDisk & '\Apps') = True Then
            $pstart = _PSTART_Shortcut('Apps\PSTART.exe')
            _PECMD_Load($pstart, 'Apps.wcs')
        EndIf
    Else
        _PECMD_Load($pstart, 'Apps.wcs')
    EndIf
EndFunc

Func _ADAppsP64()
    ;AnhDV
    Local $pstart = _PSTART_Shortcut('Apps\PSTARTP.exe', 'PSTARTP')
    If $pstart = Null Then
        If _Mount_WIM('AppsP.wim', 2, $RamDisk & '\Apps') = True Then
            $pstart = _PSTART_Shortcut('Apps\PSTARTP.exe', 'PSTARTP')
            _PECMD_Load($pstart, 'AppsP.wcs')
        EndIf
    Else
        _PECMD_Load($pstart, 'AppsP.wcs')
    EndIf
EndFunc

Func _HCApps64()
    ;HoanChien
    Local $pstart = _PSTART_Shortcut('Programs\PSTART64.exe')
    If $pstart = Null Then
        If _Mount_ISO('Apps.iso') = True Then
            $pstart = _PSTART_Shortcut('Programs\PSTART64.exe')
            _PECMD_Load($pstart, 'Apps64.ini')
            _PECMD_Load($pstart, 'Appsx64.ini')
        EndIf
    Else
        _PECMD_Load($pstart, 'Apps64.ini')
        _PECMD_Load($pstart, 'Appsx64.ini')
    EndIf
EndFunc

Func _MyShortcut()
    ;LVT491
    _Run_Wait('PECMD.exe LINK %Desktop%\Clear Temp,%WinDir%\System32\PECMD.exe,TEMP DELETE,%WinDir%\System32\shell32.dll#153')
    _Run_Wait('PECMD.exe LINK %Desktop%\Admin Login,%WinDir%\System32\PECMD.exe,LOAD %WinDir%\System32\PecmdAdminLoad.ini,%WinDir%\System32\shell32.dll#44')
    _Run_Wait('PECMD.exe LINK %Desktop%\PENetwork,%ProgramFiles%\PENetwork_x64\PENetwork.exe')
    _Run_Wait('PECMD.exe LINK %Desktop%\Explorer++,%ProgramFiles%\WinXShell\Explorer++.exe')
    FileDelete('X:\Users\Administrator\Desktop\Admin Login.LNK')
    Local $SDIPath = _Get_Path('DriverPacks\SDI_auto.au3')
    If $SDIPath <> Null Then _Run_Wait('PECMD.exe LINK %Desktop%\Inst Driver,%WinDir%\System32\AutoIt3.exe,' & $SDIPath & ',%WinDir%\System32\shell32.dll#162')
    _Run_Wait('PECMD.exe ENVI #TEMP=B:\Temp')
    _Run_Wait('PECMD.exe ENVI @@DeskTopFresh=1')
EndFunc

Func _Mount_ISO($FileName)
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        _Run_Wait('imdisk.exe -a -f ' & $FilePath & ' -m #:')
        Return True
    Else
        Return False
    EndIf
EndFunc

Func _Mount_WIM($FileName, $Index, $MountDir)
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        DirCreate($MountDir)
        If Not FileExists($MountDir) Then Return False
        _Run_Wait('DISM.exe /Mount-Image /ImageFile:' & $FilePath & ' /Index:' & $Index & ' /MountDir:' & $MountDir)
        Return True
    Else
        Return False
    EndIf
EndFunc

Func _Mount_WIMX($FileName, $Index, $MountDir)
    Local $FilePath = _Get_File($FileName)
    If $FilePath <> Null Then
        DirCreate($MountDir)
        If Not FileExists($MountDir) Then Return False
        _Run_Wait('imagex.exe /mountrw ' & $FilePath & ' ' & $Index & ' ' & $MountDir)
        Return True
    Else
        Return False
    EndIf
EndFunc

Func _UnMount_WIM($MountDir)
    _Run_Wait('DISM.exe /Unmount-Image /MountDir:' & $MountDir & ' /Discard')
    ;FileDelete($MountDir)
EndFunc

Func _UnMount_WIMX($MountDir)
    _Run_Wait('imagex.exe /unmount ' & $MountDir)
    ;FileDelete($MountDir)
EndFunc

Func _DPInst_Drivers($FolderDir)
    If FileExists($FolderDir) Then
        _Run_Wait('dpinst.exe /s /path ' & $FolderDir)
    EndIf
EndFunc

Func _PSTART_Shortcut($FileName, $ShortcutName = 'PSTART')
    Local $FilePath = _Get_Path($FileName)
    If $FilePath <> Null Then
        _Run_Wait('PECMD.exe LINK %Desktop%\' & $ShortcutName & ',' & $FilePath)
        Return $FilePath
    Else
        Return Null
    EndIf
EndFunc

Func _PECMD_Load($FileDir, $FileName)
    Local $FolderDir = StringRegExpReplace($FileDir, '\\[^\\]*$', '')
    If @error Then Return
    Local $FilePath = $FolderDir & '\' & $FileName
    If FileExists($FilePath) Then _Run_Wait('PECMD.exe LOAD ' & $FilePath)
EndFunc

Func _Get_Path($Path)
    Local $Drv = DriveGetDrive('ALL')
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $Path) Then Return StringUpper($Drv[$i]) & '\' & $Path
    Next
    Return Null
EndFunc

Func _Get_File($FileName)
    Local $Drv = DriveGetDrive('ALL'), $Fdl
    For $i = 1 To $Drv[0]
        If FileExists($Drv[$i] & '\' & $FileName) Then Return StringUpper($Drv[$i]) & '\' & $FileName
    Next
    For $i = 1 To $Drv[0]
        $Fdl = _FileListToArray(StringUpper($Drv[$i]), '*', 2, True)
        If Not @error Then
            For $j = 1 To $Fdl[0]
                If FileExists($Fdl[$j] & '\' & $FileName) Then Return $Fdl[$j] & '\' & $FileName
            Next
        EndIf
    Next
    Return Null
EndFunc

Func _Run_Wait($Command)
    RunWait(@ComSpec & ' /C ' & $Command, '', @SW_HIDE)
EndFunc

Func _FileListToArray($sFilePath, $sFilter = '*', $iFlag = 0, $bReturnPath = False)
    Local $sDelimiter = '|', $sFileList = '', $sFileName = '', $sFullPath = ''
    $sFilePath = StringRegExpReplace($sFilePath, '[\\/]+$', '') & '\'
    If $iFlag = Default Then $iFlag = 0
    If $bReturnPath Then $sFullPath = $sFilePath
    If $sFilter = Default Then $sFilter = '*'
    If Not FileExists($sFilePath) Then Return SetError(1, 0, 0)
    If StringRegExp($sFilter, '[\\/:><\|]|(?s)^\s*$') Then Return SetError(2, 0, 0)
    If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 0, 0)

    Local $hSearch = FileFindFirstFile($sFilePath & $sFilter)
    If @error Then Return SetError(4, 0, 0)
    While 1
        $sFileName = FileFindNextFile($hSearch)
        If @error Then ExitLoop
        If ($iFlag + @extended = 2) Then ContinueLoop
        $sFileList &= $sDelimiter & $sFullPath & $sFileName
    WEnd
    FileClose($hSearch)

    If $sFileList = '' Then Return SetError(4, 0, 0)
    Return StringSplit(StringTrimLeft($sFileList, 1), $sDelimiter)
EndFunc

EXEC %WinDir%\System32\AutoIt3.exe %WinDir%\System32\PeApps.au3

_SUB MApps
      IFEX R:\ppApps,!path R:\ppApps
      Forx !\Apps\Apps.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppApps|exec =pecmd load R:\ppApps\apps.wcs|exec R:\ppApps\Pstart.exe
_END


_SUB MAppsP
      IFEX R:\ppAppsP,!path R:\ppAppsP
      Forx !\Apps\AppsP.wim,app,1,team exec =!imagex.exe /mount %app% 2 R:\ppAppsP|exec =pecmd load R:\ppAppsP\Appsp.wcs|exec R:\ppAppsP\PSTARTP.exe
_END


_SUB MDriver
      Kill dpinst.exe
      IFEX R:\Drivers,team exec =!imagex.exe /unmount R:\Drivers|path #R:\Drivers
      IFEX R:\Drivers,!path R:\Drivers
      forx !\Apps\Drv10x64.wim,Driv,1,team exec =!imagex /mount %Driv% 1 R:\Drivers
      IFEX R:\Drivers\N,team call TBDM|load %systemroot%\system32\DrivR.ini!call TBD
_END


_SUB WIM
          IFEX R:\ppApps\Apps.wcs,call PS!Call MApps
_END

_SUB WIMP
          IFEX R:\ppAppsP\AppsP.wcs,call PS!Call MAppsP
_END

_SUB DRV
          IFEX R:\Drivers\N\W,Call TBDM!call MDriver
_END

_SUB UApps
      KILL Pstart.exe
      exec =!@imagex.exe /unmount R:\ppApps
    path #R:\ppApps
_END

_SUB UAppsP
      KILL PSTARTP.exe
      exec =!@imagex.exe /unmount R:\ppAppsP
    path #R:\ppAppsP
_END


_SUB UDriver
  exec =!@imagex.exe /unmount R:\Drivers
  path #R:\Drivers
_END
 

_SUB UALL
      IFEX R:\ppApps\Apps.wcs,call UApps
      IFEX R:\ppApps\Apps.wcs,call UApps64
      IFEX R:\ppAppsP\AppsP.wcs,call UApps
      IFEX R:\ppAppsP\AppsP.wcs,call UApps64
       IFEX R:\Drivers\N,call UDriver
_END

_SUB Windows1,W405H95,Apps Manager,,MountApps.ico
    GROU Group1,L5T8W200H50,MOUNT:
    ITEM Button1,L10T25W40H24,Apps,team CALL WIM|call TBA
    ITEM Button2,L60T25W40H24,AppsP,team CALL WIMP|call TBAP
    ITEM Button3,L110T25W40H24,Driver,CALL  MDriver
    ITEM Button4,L160T25W40H24,MyTool,CALL Mytool
    //ITEM Button60,L180T25W45H24,MyDriver,CALL MMDriver
    GROU Group2,L215T8W190H50,UNMOUNT:
    ITEM Button5,L220T25W35H24,Apps,team CALL UApps|call TB
    ITEM Button6,L265T25W35H24,AppsP,team CALL UAppsP|call TB
    ITEM Button7,L310T25W40H24,Driver,team CALL UDriver|call TB
    ITEM Button8,L355T25W35H24,ALL,team CALL UALL|call TB
_END

_SUB Not
    MESS Khong du RAM de su dung cong cu nay!!! \n Ban co muon su dung "WimTools" de thay the?  @Canh Bao #YN *10000 $Y
    FIND $%YESNO%=YES,load %systemroot%\system32\WimY.ini!ENVI NOMEM=Yes
_END


_SUB TBA
        IFEX R:\ppApps\Apps.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBAP
        IFEX R:\ppAppsP\AppsP.wcs,!TIPS Chưa Mount thành công Apps, Copy Apps.wim  vào folder APPS...,3000,4,X:\Windows\DLD\ICO\programs.ico
    wait 1000
_END

_SUB TBD
        IFEX R:\Drivers\N,!TIPS Chưa Mount thành công Driver, Copy Drv10x64.wim vào folder APPS...,3000,4,X:\Windows\DLD\ICO\DriverFolder.ico
    wait 1000
_END


_SUB TB
    TIPS Unmount thành công, Bạn có thể mount lại...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB TBDM
    TIPS Driver đã được mount..., Bạn đã có thể cài đặt Driver...,5000,4,X:\Windows\DLD\ICO\programs.ico
_END

_SUB PS
    TIPS Sử dụng nút Pstart ở taskbar, Hoặc nhấp chuột phải trên Desktop để chọn ứng dụng ...,3000,4,X:\Windows\DLD\ICO\programs.ico
_END

CAll @windows1