AutoIt Français

Code : Tout sélectionner

;
; Problème de changement de police d'un ListViewGroup sur une ListView
;
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
; ============================================================================= ;
;             Listage rapide des gros dossiers                                  ;
; ============================================================================= ;
; Auteur .......................... : TopXm                                     ;
; Date dernière update ............    : 06 mai 2012                               ;
; Késako .......................... : Liste les dossiers volumineux                ;
; Nom de l'outil .................. : BigFolder                                 ;
; ============================================================================= ;
#include <array.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <Constants.au3>
#include <WinAPIEx.au3>
#include <ButtonConstants.au3>
#include <Icons.au3>

; Constantes Declaratives
Global Const $Title = 'BigFolder Version 1.0'
Global Const $DirFonts = @TempDir & '\BigFolder\Fonts\'
Global Const $DirInc = @TempDir & '\BigFolder\Include\'
Global Const $IcoPath = $DirInc & 'Back.ico'
Global Const $Plasma = 'Plasma Drip (BRK)'
Global Const $Calisto = 'Calisto MT'
Global Const $BackColor = 0x494E49
Global Const $ForeColor = 0xA29CC9 ;0xE6ECE0
Global Const $HardDrive = 'Fixed'
Global Const $DVD = 'CDROM'
Global Const $UNKNOWN = 'Unknown'
Global Const $NETWORK = 'Network'
Global Const $RAMDISK = 'RAMDisk'
Global Const $USB = 'Removable'
Global Const $aTypes[6] = ['Fixed', 'CDROM', 'UnKnown', 'Network', 'RAMDisk', 'Removable']
Global Const $iTypes[6] = [' Disques durs ', ' Lecteurs CD/DVD ', ' Lecteurs inconnus ', _
        ' Disques réseau ', ' Disques virtuels ', ' Disques amovibles ']
Global Const $BD_ROM = -201
Global Const $INDEX_SHIFT = 9999
Global Const $NM_CUSTOMDRAW_1 = $NM_FIRST - 121

Global Const $SHGFI_ICONLOCATION = 0x00001000
Global Const $SHGFI_TYPENAME = 0x00000400

; Others Declaratives
Global $aDrives[1][8]
Global $I
Global $nGroup, $aGroup
Global $iCX = 64, $iCY = 64

_FilesInstall()
_GuiPrepare()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            _ExiteMoi()

    EndSwitch
WEnd

; --------------------------------------------------------------
;                       Création GUI                           ;
; --------------------------------------------------------------
Func _GuiPrepare()
    Global $hGUI = GUICreate("BigFolder v. 1.0", 580, 530, 192, 124)
    GUISetFont(14, 400, 0, "Degrading Morals")
    GUISetBkColor($BackColor, $hGUI)
    GUISetIcon($DirInc & '\BigFolder.ico')
    Global $BtBack = GUICtrlCreateIcon('', 0, 5, 5, 32, 32)
    _SetCombineBkIcon($BtBack, -1, $IcoPath, 0, 32, 32, $IcoPath, 0, 32, 32, 0, 0)
    Global $hTitle = GUICtrlCreateLabel("Big Folders", 50, 5, 479, 60, BitOR($SS_CENTER, $SS_NOTIFY))
    GUICtrlSetFont(-1, 36, 400, 0, $Plasma)
    GUICtrlSetBkColor(-1, $BackColor)
    GUICtrlSetColor(-1, $ForeColor)
    Global $hLstV = GUICtrlCreateListView("", 0, 66, 579, 400, _
            BitOR($LVS_ICON, $LVS_SHOWSELALWAYS, $LVS_NOCOLUMNHEADER), $WS_EX_TRANSPARENT)
    GUICtrlSetFont($hLstV, 16, 800, 0, $Calisto, 5)
    _GUICtrlListView_SetExtendedListViewStyle($hLstV, BitOR($WS_EX_CLIENTEDGE, $LVS_EX_FULLROWSELECT, $LVS_EX_LABELTIP))
    _GUICtrlListView_SetBkColor($hLstV, $BackColor)
    _GUICtrlListView_SetTextBkColor($hLstV, $BackColor)
    _GUICtrlListView_SetTextColor($hLstV, $ForeColor)
    _GUICtrlListView_SetView($hLstV, 1)
    Global $hImage = _GUIImageList_Create(128, 128, 5, 3)
    _GUICtrlListView_SetImageList($hLstV, $hImage, 0)
    _GetDrivesInformations()
    If @error Then _ExiteMoi()
    GUISetState(@SW_SHOW)
EndFunc   ;==>_GuiPrepare

; --------------------------------------------------------------
;       Recherches des disques + Affichage dans la LSTV        ;
; --------------------------------------------------------------
Func _GetDrivesInformations()
    Local $aDrv = DriveGetDrive('ALL')
    If @error Then
        MsgBox(16, $Title, 'Aucun lecteur sur ce PC !' & @CRLF & @CRLF & 'Cliquer OK pour fermer')
        Return SetError(@error)
    EndIf
    Dim $aDrives[$aDrv[0] + 1][8]
    $aDrives[0][0] = $aDrv[0]
    _GUIImageList_Destroy($hImage)
    $hImage = _GUIImageList_Create($iCX, $iCY, 5, 3)
    _GUICtrlListView_SetImageList($hLstV, $hImage, 0)
    Local $SHFILEINFO, $SHFILEINFO1, $hIcon
    For $I = 1 To $aDrv[0]
        $aDrives[$I][0] = StringUpper($aDrv[$I])
        $aDrives[$I][1] = DriveGetType($aDrv[$I])
        $aDrives[$I][2] = DriveGetLabel($aDrv[$I])
        $aDrives[$I][3] = DriveStatus($aDrv[$I])
        $SHFILEINFO = DllStructCreate($tagSHFILEINFO)
        _WinAPI_ShellGetFileInfo($aDrives[$I][0], $SHGFI_ICONLOCATION, 0, $SHFILEINFO)
        $aDrives[$I][4] = DllStructGetData($SHFILEINFO, 2)
        $hIcon = _WinAPI_ShellExtractIcon(DllStructGetData($SHFILEINFO, 4), DllStructGetData($SHFILEINFO, 2), $iCX, $iCX)
        _GUIImageList_ReplaceIcon($hImage, -1, $hIcon)
        _WinAPI_DestroyIcon($hIcon)
        _GUICtrlListView_AddItem($hLstV, $aDrives[$I][0], $I - 1)
        $SHFILEINFO1 = DllStructCreate($tagSHFILEINFO)
        _WinAPI_ShellGetFileInfo($aDrives[$I][0], $SHGFI_TYPENAME, 0, $SHFILEINFO1)
        $aDrives[$I][5] = DllStructGetData($SHFILEINFO1, 5)
        _GetDriveMoreInfos($I)
    Next
    _SetGroups()
EndFunc   ;==>_GetDrivesInformations

; --------------------------------------------------------------
;               Création des Groupes dans la LSTV              ;
; --------------------------------------------------------------
Func _SetGroups()
    $aGroup = ''
    $nGroup = 0
    Local $iInd
    _GUICtrlListView_EnableGroupView($hLstV)
    For $I = 1 To $aDrives[0][0]
        If $aGroup <> $aDrives[$I][5] Then
            $aGroup = $aDrives[$I][5]
            $nGroup += 1
            $iInd = _ArraySearch($aTypes, $aDrives[$I][1])
            _GUICtrlListView_InsertGroup($hLstV, $I, $nGroup, $iTypes[$iInd])
        EndIf
        _GUICtrlListView_SetItemGroupID($hLstV, $I - 1, $nGroup)
    Next
EndFunc   ;==>_SetGroups

; --------------------------------------------------------------
;       Récupération du type de Média et du nom du lecteur       ;
; --------------------------------------------------------------
Func _GetDriveMoreInfos($I)
    Local $oWMI = ObjGet('winmgmts:\\' & @ComputerName & '\root\CIMV2')
    Local $oCol = '', $oItem = ''
    Switch $aDrives[$I][1]
        Case $DVD
            $oCol = $oWMI.ExecQuery('SELECT * FROM Win32_CDROMDrive Where Drive = "' & _
                    $aDrives[$I][0] & '"', 'WQL', 0x10 + 0x20)
            If IsObj($oCol) Then
                For $oItem In $oCol
                    $aDrives[$I][6] = $oItem.Name
                    $aDrives[$I][7] = $oItem.MediaType
                Next
            EndIf
    EndSwitch
EndFunc   ;==>_GetDriveMoreInfos

; --------------------------------------------------------------
;           Copie des fonts et des images                       ;
; --------------------------------------------------------------
Func _FilesInstall()
    DirCreate($DirFonts)
    DirCreate($DirInc)
    FileInstall('C:\Users\TopXm\Desktop\Dev\BigFolder\Fonts\plasdrip.ttf', $DirFonts & 'plasdrip.ttf', 1)
    FileInstall('C:\Users\TopXm\Desktop\Dev\BigFolder\Fonts\calist.ttf', $DirFonts & 'Calist.ttf', 1)
    FileInstall('C:\Users\TopXm\Desktop\Dev\BigFolder\Fonts\degradingmorals.ttf', $DirFonts & 'degradingmorals.ttf', 1)
    FileInstall('C:\Users\TopXm\Desktop\Dev\BigFolder\include\BigFolder.ico', $DirInc & 'bigfolder.ico', 1)
    FileInstall('C:\Users\TopXm\Desktop\Dev\BigFolder\include\Back.ico', $DirInc & 'Back.ico', 1)
    _InstallFonts($DirFonts & 'Calist.ttf')
    _InstallFonts($DirFonts & 'DegradingMorals.ttf')
    _InstallFonts($DirFonts & 'PlasDrip.ttf')
    ConsoleWrite('Error=' & @error & @CRLF)
    If @error Then Return SetError(@error)
EndFunc   ;==>_FilesInstall

; --------------------------------------------------------------
;           Installation des fonts dans Windows                 ;
; --------------------------------------------------------------
Func _InstallFonts($sSourceFile)
    Local Const $HWND_BROADCAST = 0xFFFF
    Local Const $WM_FONTCHANGE = 0x1D
    Local $FontDescript = ""
    Local $FontPath = @WindowsDir & "\fonts"
    Local $FontName = StringRegExpReplace($sSourceFile, "^.*\\", "")
    If FileExists($FontPath & '\' & $FontName) Then Return 1
    If Not FileCopy($sSourceFile, $FontPath & "\" & $FontName, 1) Then Return SetError(1, 0, 0)
    Local $hGdi32_DllOpen = DllOpen("gdi32.dll")
    Local $aRet = DllCall($hGdi32_DllOpen, "Int", "AddFontResource", "str", $FontPath & "\" & $FontName)
    If IsArray($aRet) And $aRet[0] > 0 Then
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", _
                $FontDescript, "REG_SZ", $FontPath & "\" & $FontName)
    EndIf
    DllClose($hGdi32_DllOpen)
    DllCall("user32.dll", "Int", "SendMessage", "hwnd", $HWND_BROADCAST, "int", $WM_FONTCHANGE, "int", 0, "int", 0)
    Return 1
EndFunc   ;==>_InstallFonts

; --------------------------------------------------------------
;                   Fin du Taf on sort ...                      ;
; --------------------------------------------------------------
Func _ExiteMoi()
    DirRemove($DirFonts, 1)
    DirRemove($DirInc, 1)
    Exit
EndFunc   ;==>_ExiteMoi