Hello. I am writing some kind of a toolbar and i am not able to properly extract and set the folder's icon. The icon is set, but it's usually the wrong one. Can any1 look at this code and tell me what i do wrong? The problem starts here: "Case $GUI_EVENT_DROPPED"
And I would also like to get rid of this pop up window that appears while getting the icon index, but i am not really into MDSN, I don't know how to use it properly. Can I also get your advice on this matter? ![:)]()
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Resources\ikona.ico
#AutoIt3Wrapper_Outfile=Flawless Toolbar v1.exe
#AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <Constants.au3>
#include <GuiListView.au3>
#include <WinAPI.au3>
#include <GuiRichEdit.au3>
#include <File.au3>
#include <Array.au3>
#include <WinAPIShellEx.au3>
#include <APIShellExConstants.au3>
#include <WinAPIDlg.au3>
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 3)
HotKeySet("^2", "_show_hide_console")
HotKeySet("^1", "_hide_show_toolbar")
HotKeySet("^!{NUMPADADD}", "_volume_up")
HotKeySet("^!{NUMPADSUB}", "_volume_down")
HotKeySet("^!{NUMPADDIV}", "_volume_mute")
;Dane ikonek
Global $exeDir, $n = 0, $Start
;Dane okien
Global $stateTool = True ;state of toolbar hidden / shown
Global $stateConsole = False ;state of the consol: hidden/shown
Global $stateOptions = False
Global $tX = @DesktopWidth / 4
Global $tY = 0
Global $i = 2, $j = 6 ;this is used to calulate width and height of the console
Global $tWidth = @DesktopWidth / $i, $tHeight = @DesktopHeight / $j + 10
Global $cHeight = @DesktopHeight / 2
;hiding speed
Global $hide_speed = 10;
;Effect glass
Global $Struct = DllStructCreate("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
Global $sStruct = DllStructCreate("dword;int;ptr;int")
If Not IniRead(@ScriptDir & "\data_shortcuts.ini", "number", "n", "") Then
IniWrite(@ScriptDir & "\data_shortcuts.ini", "number", "n", $n)
Else
$n = IniRead(@ScriptDir & "\data_shortcuts.ini", "number", "n", "")
EndIf
$cmd = Run(@ComSpec, "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
;TOOLBAR
$Toolbar = GUICreate("Flawless Toolbar by Zwierzak", $tWidth, $tHeight, $tX, $tY, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_ACCEPTFILES, $WS_EX_TOOLWINDOW))
$LV = GUICtrlCreateListView("", -1, -1, $tWidth + 30, $tHeight + 5, BitOR($LVS_SINGLESEL, $LVS_ICON, $LVS_EX_REGIONAL)) ;liczby dodawane aby ukryc "biale linie"
_GUICtrlListView_SetIconSpacing($LV, 80, 80)
_GUICtrlListView_SetView($LV, 1) ;sets icon size
GUICtrlSetState($LV, $GUI_DROPACCEPTED)
;invisible button responsible for creating a hotkey to an active window
$buttonDelete = GUICtrlCreateButton("Delete", 0, -50)
$buttonExit = GUICtrlCreateButton("Exit", 50, -50)
Local $AccelKeys[2][2] = [["{DEL}", $buttonDelete],["{ESC}", $buttonExit]]
GUISetAccelerators($AccelKeys, $Toolbar)
;CONSOLE
$hConsole = GUICreate("Flawless Console by Zwierzak", @DesktopWidth, $cHeight, 0, -$cHeight, $WS_POPUP, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW));zostanie stworzona ukryta
$consoleList = _GUICtrlRichEdit_Create($hConsole, "", 0, 0, @DesktopWidth, $cHeight - 30, BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
_GUICtrlRichEdit_SetReadOnly($consoleList)
$consoleInput = GUICtrlCreateInput("", 0, $cHeight - 30, @DesktopWidth - 50, 30)
GUICtrlSetFont($consoleInput, 12)
$Enter = GUICtrlCreateButton("Enter", @DesktopWidth - 50, $cHeight - 30, 50, 30)
GUICtrlSetState($Enter, $GUI_DEFBUTTON)
;OPTIONS
$Options = GUICreate("Opcje", 400, 500, 192, 124)
$Apply = GUICtrlCreateButton("Zapisz", 0, 470, 100, 30)
$Cancel = GUICtrlCreateButton("Anuluj", 300, 470, 100, 30)
$tabs = GUICtrlCreateTab(0, 0, 400, 470)
$page1 = GUICtrlCreateTabItem("Ogolne")
$Checkbox1 = GUICtrlCreateCheckbox("Uruchom przy starcie systemu", 8, 32, 161, 17)
GUICtrlCreateTabItem("")
;TRAY
$tr_options = TrayCreateItem("Opcje")
$tr_hotkeys = TrayCreateItem("Klawisze skrótów")
$tr_opis = TrayCreateItem("O programie")
$tr_exit = TrayCreateItem("Exit")
If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
_Vista
_EnableBlurBehind
($Toolbar)
_Vista
_EnableBlurBehind
($hConsole)
GUICtrlSetBkColor($LV, 0x000000)
GUICtrlSetColor($LV, 0xFFFFFF)
GUICtrlSetBkColor($consoleInput, 0x000000)
GUICtrlSetColor($consoleInput, 0xFFFFFF)
GUICtrlSetBkColor($Enter, 0x000000)
GUICtrlSetColor($Enter, 0xFFFFFF)
_GUICtrlRichEdit_SetBkColor($consoleList, 0x000000)
_GUICtrlRichEdit_SetCharColor($consoleList, 0xFFFFFF)
EndIf
_load
_icons
()
_load
_settings
()
GUISetOnEvent($GUI_EVENT_DROPPED, "GuiEvent", $Toolbar)
GUISetOnEvent($GUI_EVENT_CLOSE, "GuiEvent", $Toolbar)
GUISetOnEvent($GUI_EVENT_CLOSE, "_show_options", $Options)
GUICtrlSetOnEvent($buttonDelete, "GuiEvent")
GUICtrlSetOnEvent($buttonExit, "GuiEvent")
GUICtrlSetOnEvent($Enter, "GuiEvent")
GUICtrlSetOnEvent($Apply, "_save_settings")
GUICtrlSetOnEvent($Cancel, "_show_options")
TrayItemSetOnEvent($tr_exit, "_exit")
TrayItemSetOnEvent($tr_options, "_show_options")
TrayItemSetOnEvent($tr_opis, "_about")
TrayItemSetOnEvent($tr_hotkeys, "_hotkeys")
AdlibRegister("cout", 100)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState(@SW_SHOW, $Toolbar)
GUISetState(@SW_SHOW, $hConsole)
TrayTip("Info", "Klawisze skrótów opisane są w menu tray, znajdują się pod pozycją 'Klawisze skrótów' ", 10000)
While 1
Sleep(100)
_Start
()
WEnd
Func GuiEvent
()
Switch @GUI_CtrlId
Case $GUI_EVENT_CLOSE, $buttonExit
_exit
()
Case $buttonDelete
If _delete
() = 0 Then ContinueCase
_GUICtrlListView_DeleteAllItems($LV)
_load
_icons
()
Case $Enter
Switch GUICtrlRead($consoleInput)
Case "exit"
_add
_edit
(GUICtrlRead($consoleInput) & @CRLF & "Exiting console...")
GUICtrlSetData($consoleInput, "")
Sleep(1000)
_exit
()
Case "cls"
Local $number = _GUICtrlRichEdit_GetLineCount($consoleList) ;return number of lines
Local $last_line = _GUICtrlRichEdit_GetTextInLine($consoleList, $number) ;saves the last line
_GUICtrlRichEdit_SetText($consoleList, "")
_add
_edit
($last_line)
Case Else
StdinWrite($cmd, GUICtrlRead($consoleInput) & @CRLF)
EndSwitch
GUICtrlSetData($consoleInput, "")
Case $GUI_EVENT_DROPPED
Local $szDrive, $szDir, $szFname, $szExt, $name
$exeDir = @GUI_DragFile ;file directory
_PathSplit($exeDir, $szDrive, $szDir, $szFname, $szExt)
If $szExt = "" Then ;folder
;update
$name = StringSplit($exeDir, "\")
If $name[$name[0]] <> "" Then
$name = $name[$name[0]]
Else
$name = $name[$name[0]-1]
EndIf
; Select icon
Local $aIcon = _WinAPI_PickIconDlg()
If @error Then Exit
; Set icon to selected folder
Local $tSHFCS = DllStructCreate($tagSHFOLDERCUSTOMSETTINGS & ';wchar szIconFile[' & (StringLen($aIcon[0]) + 1) & ']')
DllStructSetData($tSHFCS, 'Size', DllStructGetPtr($tSHFCS, 'szIconFile') - DllStructGetPtr($tSHFCS))
DllStructSetData($tSHFCS, 'Mask', $FCSM_ICONFILE)
DllStructSetData($tSHFCS, 'IconFile', DllStructGetPtr($tSHFCS, 'szIconFile'))
DllStructSetData($tSHFCS, 'SizeIF', 260)
DllStructSetData($tSHFCS, 'IconIndex', -1)
DllStructSetData($tSHFCS, 'szIconFile', -1)
_WinAPI_ShellGetSetFolderCustomSettings($exeDir, $FCS_READ, $tSHFCS)
MsgBox(0,"", "exe:" & $exeDir & @CRLF & DllStructGetData($tSHFCS, "IconFile") & @CRLF & DllStructGetData($tSHFCS, "SizeIF") & @CRLF & DllStructGetData($tSHFCS, "IconIndex") & @CRLF & DllStructGetData($tSHFCS, "szIconFile"))
GUICtrlCreateListViewItem($name, $LV)
GUICtrlSetImage(-1, "SHELL32.dll", DllStructGetData($tSHFCS, "IconIndex"), 1)
_save
($exeDir)
ElseIf $szExt = ".exe" Then ;aplikacja
Update
($exeDir)
_save
($exeDir)
ElseIf $szExt = ".lnk" Then ;skrot
Local $dir = FileGetShortcut($exeDir)
Update
($dir[0])
_save
($dir[0])
EndIf
EndSwitch
EndFunc ;==>GuiEvent
Func cout
()
$line = StdoutRead($cmd)
$error = StderrRead($cmd)
If $error <> "" Then _add
_edit
(@CRLF & $error)
If $line <> "" Then _add
_edit
($line)
EndFunc ;==>cout
Func _add
_edit
($text)
_GUICtrlRichEdit_SetFont($consoleList, 10, "Lucida Console")
_GUICtrlRichEdit_AppendText($consoleList, Console
_CP852
_to
_UNICODE
($text))
GUICtrlSetState($consoleInput, $GUI_FOCUS)
EndFunc ;==>_add_edit
Func _save
_settings
()
If GUICtrlRead($Checkbox1) = 1 Then
FileCreateShortcut(@ScriptDir & "\" & @ScriptName, @StartupDir & "\" & @ScriptName, @ScriptDir)
IniWrite(@ScriptDir & "\settings.ini", "autostart", "value", "1")
Else
FileDelete(@StartupDir & "\" & @ScriptName & ".lnk")
IniWrite(@ScriptDir & "\settings.ini", "autostart", "value", "4")
EndIf
_show
_options
()
EndFunc ;==>_save_settings
Func _load
_settings
()
GUICtrlSetState($Checkbox1, IniRead(@ScriptDir & "\settings.ini", "autostart", "value", ""))
EndFunc ;==>_load_settings
Func _save
($data)
;data - directory to a fle
Local $szDrive, $szDir, $szFname, $szExt
$n = IniRead(@ScriptDir & "\data_shortcuts.ini", "number", "n", "")
_PathSplit($data, $szDrive, $szDir, $szFname, $szExt)
Local $wd = $szDrive & $szDir
$n += 1
IniWrite(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $n, $data);zapisuje sciezke
IniWrite(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $n & "_wd", $wd) ;zapisuje working dir
IniWrite(@ScriptDir & "\data_shortcuts.ini", "number", "n", $n)
EndFunc ;==>_save
Func _load
_icons
()
$n = IniRead(@ScriptDir & "\data_shortcuts.ini", "number", "n", "")
For $i = 1 To $n Step +1
Update
(IniRead(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $i, ""))
Next
EndFunc ;==>_load_icons
Func Update
($directory)
$IHM = _WinAPI_ExtractIconEx($directory, -1, 0, 0, 0)
Local $filename = FileGetVersion($directory, "ProductName")
If $filename = "" Then
Local $string = StringSplit($directory, "\");string[0]=ilosc elementow, string[string[o]]=ostatni element="name.exe"
Local $name = StringSplit($string[$string[0]], ".");name[1]=nazwa, name[2]="exe"
$filename = $name[1]
EndIf
GUICtrlCreateListViewItem($filename, $LV)
GUICtrlSetImage(-1, $directory, -1, 1)
EndFunc ;==>Update
Func _delete
()
$n_index = _GUICtrlListView_GetSelectionMark($LV)
If $n_index = -1 Then Return 0;if nothing is selected, return 0
$n_index += 1
$n = IniRead(@ScriptDir & "\data_shortcuts.ini", "number", "n", "")
IniDelete(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $n_index)
IniDelete(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $n_index & "_wd")
For $i = $n_index + 1 To $n Step +1
IniWrite(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $i - 1, IniRead(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $i, ""))
IniWrite(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $i - 1 & "_wd", IniRead(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $i & "_wd", ""))
Next
IniDelete(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $n)
IniDelete(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $n & "_wd")
IniWrite(@ScriptDir & "\data_shortcuts.ini", "number", "n", $n - 1);aktualizuje n
;nie chcialo mi sie sprawdzac kiedy tworzy sie zerowy wpis, wiec po prostu zawsze go usuwam xD
IniDelete(@ScriptDir & "\data_shortcuts.ini", "shortcuts", "0")
IniDelete(@ScriptDir & "\data_shortcuts.ini", "shortcuts", "0_wd")
Return 1
EndFunc ;==>_delete
Func _Start
()
If $Start Then
$Start = 0
Local $index = _GUICtrlListView_GetSelectionMark($LV)
Local $path = IniRead(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $index + 1, "") ;czyta sciezke
Local $wd = IniRead(@ScriptDir & "\data_shortcuts.ini", "shortcuts", $index + 1 & "_wd", "");czyta working dir
ShellExecute($path, "", $wd)
EndIf
EndFunc ;==>_Start
Func _exit
()
AdlibUnRegister("cout")
AdlibUnRegister("_hide_show_toolbar")
Exit
EndFunc ;==>_exit
Func _show
_options
()
If $stateOptions = False Then
GUISetState(@SW_SHOW, $Options)
$stateOptions = True
Else
GUISetState(@SW_HIDE, $Options)
$stateOptions = False
EndIf
EndFunc ;==>_show_options
Func _hide
_show
_toolbar
()
$winpos = WinGetPos(WinGetTitle($Toolbar))
If $stateTool = True Then ;toolbar jest widoczny
While $winpos[1] + $winpos[3] > 0
$winpos = WinGetPos(WinGetTitle($Toolbar))
WinMove(WinGetTitle($Toolbar), "", $tX, $winpos[1] - 10)
Sleep($hide_speed)
WEnd
$stateTool = False
Else ;toolbar jest niewidoczny
While $winpos[1] < 0
$winpos = WinGetPos(WinGetTitle($Toolbar))
WinMove(WinGetTitle($Toolbar), "", $tX, $winpos[1] + 10)
Sleep($hide_speed)
WEnd
WinMove(WinGetTitle($Toolbar), "", $tX, $tY);umieszcza okno gdzie bylo przy tworzeniu
WinActivate(WinGetTitle($Toolbar))
$stateTool = True
EndIf
EndFunc ;==>_hide_show_toolbar
Func _show
_hide
_console
()
If $stateConsole = False Then ;konsola jest ukryta
Do
$winpos = WinGetPos(WinGetTitle($hConsole))
WinMove(WinGetTitle($hConsole), "", 0, $winpos[1] + 30)
Sleep($hide_speed)
Until $winpos[1] > 0
WinMove(WinGetTitle($hConsole), "", 0, 0)
$stateConsole = True
WinActivate(WinGetTitle($hConsole))
Else;kosnola jest widoczna
Do
$winpos = WinGetPos(WinGetTitle($hConsole))
WinMove(WinGetTitle($hConsole), "", 0, $winpos[1] - 30)
Sleep($hide_speed)
Until $winpos[1] < -$cHeight
$stateConsole = False
EndIf
EndFunc ;==>_show_hide_console
Func _volume
_mute
()
Send("{Volume_mute}")
EndFunc ;==>_volume_mute
Func _volume
_up
()
Send("{Volume_up}")
EndFunc ;==>_volume_up
Func _volume
_down
()
Send("{Volume_down}")
EndFunc ;==>_volume_down
Func _about
()
MsgBox(64, "Flawless Toolbar", "Flawless Toolbar Beta by zwierzak(autoit.xaa.pl)")
EndFunc ;==>_about
Func _hotkeys
()
MsgBox(64, "Flawless Toolbar", "Aby pokazać / ukryć toolbara wciśnij ctrl+1" & @CRLF & "Aby pokazać / ukryć konsolę wciśnij ctrl+2" & @CRLF & "Aby skasować ikonkę z listy zaznacz ją i wciśnij 'delete'" & @CRLF & @CRLF & "Korzystając z klawiatury numerycznej..." & @CRLF & "Aby zwiekszyc głośność dźwięku wciśnij 'ctrl alt +'" & @CRLF & "Aby zmniejszyc głośność dźwięku wciśnij 'ctrl alt -'" & @CRLF & "Aby wyłączyć/włączyć dźwięk wciśnij 'ctrl alt /'")
EndFunc ;==>_hotkeys
Func WM
_NOTIFY
($hWnd, $iMsg, $iwParam, $ilParam)
Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $hWndLV, $tInfo
$hWndLV = GUICtrlGetHandle($LV)
$tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
$hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
$iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
$iCode = DllStructGetData($tNMHDR, "Code")
Switch $hWndFrom
Case $hWndLV
Switch $iCode
Case $NM_DBLCLK
Local $LVHT = _GUICtrlListView_HitTest($hWndLV)
If $LVHT[0] <> -1 And StringRight($exeDir, 4) <> ".icl" Then
$Start = 1;click approved
$LHT = ($LVHT[0] + 1)
EndIf
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _Vista
_EnableBlurBehind
($hWnd, $bColor = 0x000000)
Const $DWM_BB_ENABLE = 0x00000001
DllStructSetData($sStruct, 1, $DWM_BB_ENABLE)
DllStructSetData($sStruct, 2, "1")
DllStructSetData($sStruct, 4, "1")
GUISetBkColor($bColor, $hWnd)
$Ret = DllCall("dwmapi.dll", "int", "DwmEnableBlurBehindWindow", "hwnd", $hWnd, "ptr", DllStructGetPtr($sStruct))
If @error Then
Return 0
Else
Return $Ret
EndIf
EndFunc ;==>_Vista_EnableBlurBehind
Func Console
_CP852
_to
_UNICODE
($sText = "")
; Tablica zamienników Strony kodowej CMD (CP/OEM 852) na standard Unicode (UTF-8)
Dim $CODEPAGE[20][2]
$CODEPAGE[1][0] = "0x88"
$CODEPAGE[1][1] = "ł"
$CODEPAGE[2][0] = "0x9D"
$CODEPAGE[2][1] = "Ł"
$CODEPAGE[3][0] = "0x86"
$CODEPAGE[3][1] = "ć"
$CODEPAGE[4][0] = "0x8F"
$CODEPAGE[4][1] = "Ć"
$CODEPAGE[5][0] = "0x97"
$CODEPAGE[5][1] = "Ś"
$CODEPAGE[6][0] = "0x98"
$CODEPAGE[6][1] = "ś"
$CODEPAGE[7][0] = "0xE0"
$CODEPAGE[7][1] = "Ó"
$CODEPAGE[8][0] = "0xA2"
$CODEPAGE[8][1] = "ó"
$CODEPAGE[9][0] = "0xA5"
$CODEPAGE[9][1] = "ą"
$CODEPAGE[10][0] = "0xA4"
$CODEPAGE[10][1] = "Ą"
$CODEPAGE[11][0] = "0xA8"
$CODEPAGE[11][1] = "Ę"
$CODEPAGE[12][0] = "0xA9"
$CODEPAGE[12][1] = "ę"
$CODEPAGE[13][0] = "0xAB"
$CODEPAGE[13][1] = "ź"
$CODEPAGE[14][0] = "0x8D"
$CODEPAGE[14][1] = "Ź"
$CODEPAGE[15][0] = "0xBD"
$CODEPAGE[15][1] = "Ż"
$CODEPAGE[16][0] = "0xBE"
$CODEPAGE[16][1] = "ż"
$CODEPAGE[17][0] = "0xE3"
$CODEPAGE[17][1] = "Ń"
$CODEPAGE[18][0] = "0xE4"
$CODEPAGE[18][1] = "ń"
$CODEPAGE[19][0] = "0xF5"
$CODEPAGE[19][1] = "$"
$sRet = ""
For $iIter = 1 To StringLen($sText) Step 1
$itmp = StringMid($sText, $iIter, 1)
For $iRep = 1 To 19 Step 1
If Asc($itmp) = $CODEPAGE[$iRep][0] Then $itmp = $CODEPAGE[$iRep][1]
Next
$sRet &= $itmp
Next
Return $sRet
EndFunc ;==>Console_CP852_to_UNICODE
;Autor: zwierzak(autoit.xaa.pl)
But it looks like I can't do it on my own.I'm making a silent install script for internet download manager. the thing is the title of the Installation window changes after each step. So I ended up adding WinSetState 9 times 
and still it doesn't fully hide the Installation and I see splash of every window.
