Program Launcher

[kaotkbliss]

Just found 1 more glitch. When deleting a file from the list, the name remains in the list, but the link is gone. To fix this a slight edit to the removefile() function

in each of the 5 While 1 loops addd the additional _GUICtrlListView_GetItemText to the StringReplace line with an = inbetween

Example

$new = StringReplace($read, $a&"="&$b, "")

instead of

$new = StringReplace($read, $b, "")

The new function

expandcollapse popup

Func removefile()
    If $z = "a" Then
        Local $a = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 0)
        Local $b = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $a & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\taba.cfg")
                $new = StringReplace($read, $a&"="&$b, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\taba.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListView)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "b" Then
        Local $c = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 0)
        Local $d = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $c & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabb.cfg")
                $new = StringReplace($read, $c&"="&$d, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabb.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewb)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "c" Then
        Local $e = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 0)
        Local $f = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $e & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabc.cfg")
                $new = StringReplace($read, $e&"="&$f, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabc.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewc)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "d" Then
        Local $g = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 0)
        Local $h = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $g & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabd.cfg")
                $new = StringReplace($read, $g&"="&$h, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabd.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewd)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "e" Then
        Local $i = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 0)
        Local $j = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 1)
        $remove = GUICreate("Delete", 200, 140, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        GUICtrlCreateLabel("Remove From List", 6, 6, 200 - 12, 16, $SS_CENTER)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFCC00)
        GUICtrlSetBkColor(-1, $lblcol)
        GUICtrlCreateIcon($icn_dll, -14, 6, 50, 32, 32)
        GUICtrlCreateLabel("", 50, 50, 200 - 55, 60)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xFFFF33)
        GUICtrlCreateLabel(" Are you sure you want to" & @CRLF & " remove:" & $i & " ?", 40, 50)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        $yes = GUICtrlCreateButton("Yes", 50, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        $no = GUICtrlCreateButton("No", 110, 100, 40, 20)
        GUICtrlSetFont(-1, 8, 400, 0, "Arial")
        GUICtrlSetColor(-1, 0xf7f183)
        GUICtrlSetBkColor(-1, $wincol)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($remove, "", $iTransp)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $yes Then
                $read = FileRead(@ScriptDir & "\tabe.cfg")
                $new = StringReplace($read, $i&"="&$j, "")
                $new2 = StringReplace($new, @CRLF & @CRLF, @CRLF)
                $file = FileOpen(@ScriptDir & "\tabe.cfg", 2)
                FileWrite($file, $new2)
                FileClose($file)
                _GUICtrlListView_DeleteItemsSelected($ListViewe)
                GUIDelete($remove)
                ExitLoop
            ElseIf $msg = $no Then
                GUIDelete($remove)
                ExitLoop
            EndIf
        WEnd
    EndIf
EndFunc   ;==>removefile

[kaotkbliss]

Issue:

If 2 or more exe's in the same tab had the same name (ex. Game.exe) then on rename, all would adopt the same name.

This code is to replace the renamefile() function

expandcollapse popup

Func renamefile()
    If $z = "a" Then
        Local $a = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 0)
        Local $b = _GUICtrlListView_GetItemText($ListView, Int(_GUICtrlListView_GetSelectedIndices($ListView)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($a, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\taba.cfg", $a & "=" & $b, $newnam & "=" & $b)
                GUICtrlSetImage($ListView, $b)
                GUICtrlCreateListViewItem($newnam & "|" & $b, $ListView)
                _GUICtrlListView_DeleteItemsSelected($ListView)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "b" Then
        Local $c = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 0)
        Local $d = _GUICtrlListView_GetItemText($ListViewb, Int(_GUICtrlListView_GetSelectedIndices($ListViewb)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($c, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabb.cfg", $c & "=" & $d, $newnam & "=" & $d)
                GUICtrlSetImage($ListViewb, $d)
                GUICtrlCreateListViewItem($newnam & "|" & $d, $ListViewb)
                _GUICtrlListView_DeleteItemsSelected($ListViewb)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "c" Then
        Local $e = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 0)
        Local $f = _GUICtrlListView_GetItemText($ListViewc, Int(_GUICtrlListView_GetSelectedIndices($ListViewc)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($e, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabc.cfg", $e & "=" & $f, $newnam & "=" & $f)
                GUICtrlSetImage($ListViewc, $f)
                GUICtrlCreateListViewItem($newnam & "|" & $f, $ListViewc)
                _GUICtrlListView_DeleteItemsSelected($ListViewc)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "d" Then
        Local $g = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 0)
        Local $h = _GUICtrlListView_GetItemText($ListViewd, Int(_GUICtrlListView_GetSelectedIndices($ListViewd)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($g, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabd.cfg", $g & "=" & $h, $newnam & "=" & $h)
                GUICtrlSetImage($ListViewd, $h)
                GUICtrlCreateListViewItem($newnam & "|" & $h, $ListViewd)
                _GUICtrlListView_DeleteItemsSelected($ListViewd)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    ElseIf $z = "e" Then
        Local $i = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 0)
        Local $j = _GUICtrlListView_GetItemText($ListViewe, Int(_GUICtrlListView_GetSelectedIndices($ListViewe)), 1)
        $renm = GUICreate("Rename", 150, 75, -1, -1, BitOR($WS_POPUP, $WS_BORDER), BitOR($WS_EX_TOOLWINDOW, $WS_EX_LAYERED))
        GUISetBkColor($bkcol)
        $nam = GUICtrlCreateInput($i, 1, 10)
        $ok = GUICtrlCreateButton("OK", 25, 35, 43, 25)
        GUICtrlSetBkColor($ok, $lblcol)
        GUICtrlSetColor($ok, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        $cancel = GUICtrlCreateButton("Cancel", 80, 35)
        GUICtrlSetBkColor($cancel, $lblcol)
        GUICtrlSetColor($cancel, 0xFFFF33)
        GUICtrlSetCursor(-1, 0)
        WinSetTrans($renm, "", $iTransp + 10)
        GUISetState(@SW_SHOW)
        While 1
            $msg = GUIGetMsg()
            If $msg = $ok Then
                $newnam = GUICtrlRead($nam)
                _ReplaceStringInFile(@ScriptDir & "\tabe.cfg", $i & "=" & $j, $newnam & "=" & $j)
                GUICtrlSetImage($ListViewe, $j)
                GUICtrlCreateListViewItem($newnam & "|" & $j, $ListViewe)
                _GUICtrlListView_DeleteItemsSelected($ListViewe)
                GUIDelete($renm)
                ExitLoop
            ElseIf $msg = $cancel Then
                GUIDelete($renm)
                ExitLoop
            EndIf
        WEnd
    EndIf
EndFunc   ;==>renamefile

Adding the 2nd indices from the listview selected item to the replacestringinfile command for each tab.

[kaotkbliss]

Updated the first post with a fresh download with everything inside. All fixes and files plus an already compiled exe

Enjoy

and please let me know of any bugs or additions!

[Emiel Wieldraaijer]

Hi,

I've took a look at the program and i would suggest the following

1) If settings are changed and would require a restart -> apply the changes and use the restart funtion

2) Double click on the tray item force show/hide your program and rename the tray option show/hide

3) If the about page is shown disable the move function or move the about page with the main window

1 -> Run('"' & @AutoItExe & '"' & ' /AutoIt3ExecuteScript "' & @ScriptFullPath & '" /restart')

2 -> TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "_Your_Func")

3 -> Open the about page move the window, put an internet explorer page in front of all other programs go back to your program (tray) and try to close it.. it will not work

Good luck

Emiel

Edited September 4, 2010 by Emiel Wieldraaijer

[XKahn]

kaotkbliss, have you seen the AutoIt program called RUN! by any chance?

The author hasn't made changes since 2005, you can get the source code when you run it. Type !source in the run box and the program decompiles itself. I believe the code may help you on making additional features to yours.

I have attached RUN! to this post. Website is; http://crimsonfan.altervista.org/

run.zip

Edited September 4, 2010 by XKahn

[kaotkbliss]

Thanks for the info guys. I will look into this stuff.

@emiel, I can't seem to figure out what you mean by #3. The main Gui does not register any actions until the about page is closed, and same with config or right click options. Once that 2nd window (about, config or right click) is closed, main Gui accepts commands again. However, I will look into keeping the 2nd window locked with the main on a move action.

Edited September 4, 2010 by kaotkbliss

[kaotkbliss]

Ok, so I tried the Run('"' & @AutoItExe & '"' & ' /AutoIt3ExecuteScript "' & @ScriptFullPath & '" /restart')

thing to remove the need to restart the program

However it was simply creating new Guis on top of the old and running many instances of the program. So I tried adding Guidelete beforehand but it was still running multiple instances of the program.

I decided to try a different route and moved these lines

$color = IniRead(@ScriptDir & "\config.ini", "color", 1, "1")

If $color = "1" Then

$bkcol = 0x000000

$wincol = 0x111111

$lblcol = 0x222222

from the top of the script to inside the main Gui creation and simply did a

GUIDelete($hWnd)

GUIDelete($hGUI)

_Gadget_CreateGUI($wW, $wH, $wfW, $wfH)

any time one of the color boxes state changes.

Works good except every time the color is changed, Mem usage goes up and never back down, so if you keep making color changes, the usage will keep increasing until you run out.

I've tried using the Memory udf experimenting with attempting to release the ram, and I also tried the _ReduceMemory() function, but that did not make a difference.

So unless I can figure a way to "flush" the memory usage when the color is changed, it will have to stay at restart of the program.

[kaotkbliss]

Could not figure out what was causing the memory increase each time the colors were changed. I left the code in but commented it out. I did however, fix the child windows being seperated if one was open when teh user selected move the window from the tray icon.

I opted not to show/hide the window on double click of the tray icon because it is already in the right click menu.

[Emiel Wieldraaijer]

Could not figure out what was causing the memory increase each time the colors were changed. I left the code in but commented it out. I did however, fix the child windows being seperated if one was open when teh user selected move the window from the tray icon.

I opted not to show/hide the window on double click of the tray icon because it is already in the right click menu.

\\

Add the following function to you script and call _ReduceMemory() just before your While/Wend Loop this will keep the memory usage low

Func _ReduceMemory($i_PID = -1)
    If $i_PID <> -1 Then
        Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $i_PID)
        Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])
        DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $ai_Handle[0])
    Else
        Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', -1)
    EndIf

    Return $ai_Return[0]
EndFunc   ;==>_ReduceMemory

[kaotkbliss]

I found one that looked almost exactly like that which did not work.

Yours however, does!

thank you much. Updating first post!

[Emiel Wieldraaijer]

Hi,

I thought .. lets test it again.. but the download link isn't valid anymore

Best regards,

Emiel

[kaotkbliss]

Hmm, it's working for me.

Here's the link again in case your cookies are still seeing the old link

http://www.4shared.com/file/tjD0WPIw/Allin1v2503.html

[Emiel Wieldraaijer]

Hi,

My second point

Add this line (line 34) -> TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "_Tray_ShowGUI"

But..

you should show/hide the program with the above line .. and adapt the text in the tray show/hide GUI

Good luck

Emiel

[kaotkbliss]

There originally was a traysetonevent in the script but had to be removed because it made other things not work.

I will consider your suggestion though

[royalmarine]

Hi kaotkbliss, i absolutly love your program. It has been a great inspriation to some programs ive wrote.

One suggestion that would be amazing, would it be possible to add shortcut support for folders?

mike.

[kaotkbliss]

Thanks for the suggestion, I will look into that as that could definately be useful!

[kaotkbliss]

Folders can now be added to the tabs!

[kaotkbliss]

Ok, updated the dll (and the code a bit) so urls, lnks and folders will have their own icon in Program Launcher.

You will want to replace the old dll with the new included in the zip

You will also want to go to start->menu->startup and remove the old Allin1v2.5 exe then start the new Allin1v2.6 exe and uncheck, recheck start with windows so a new shortcut (to the updated version) is created.

[royalmarine]

amazing dude. thanks a mill!

[kaotkbliss]

Thank you for the support!

I did notice that I forgot to update the icons durring renaming so I've been tweeking that. And if anyone has any suggestions on what options they would like to see for the icon menu, I would be happy to look into it so I can change the show/hide to doubleclick as suggested before. I could do it now (probably) but then the menu would be seriously lacking as all it would have is move and exit.