Total Commander

Код: Выделить всё

Global script = %COMMANDER_PATH% & "\Scripts\ChangeLang.vbs"

RunThread ThreadWatchLang

Func ThreadWatchLang
	Local lng, cpu, mls, lng1, lng2, MainMenu
	Local ini = %COMMANDER_PATH% & "\Ini\User.ini"
	Local sect = "User"

	lng1 = AUTORUN_TCLANG
	While 1
		lng2 = AUTORUN_TCLANG
		If Not (lng1 = lng2) Then
			Switch lng2
				Case 'ENG'
					lng = "eng"
				Case 'RUS'
					lng = "rus"
			EndSwitch
			ShellExec /SW_HIDE /WAIT '%script%' '"%ini%" "%sect%" "%lng%"'
			CommandExec cm_ReloadBarIcons
			lng1 = lng2
		Else
			If AUTORUN_TCLANG = 'ENG' Then
				IniRead MainMenu %COMMANDER_INI% "Configuration" "Mainmenu"
					If MainMenu = "" Then
						CommandExec em_changelng_mnu
				EndIf
			EndIf
		EndIf

Код: Выделить всё

; AHK v2
; originally posted by maestrith 
; https://autohotkey.com/board/topic/94083-ahk-11-font-and-color-dialogs/

; ===============================================================
; Example
; ===============================================================

; global cc, defColor
; cc := 0x00FF00 ; green
; defColor := [0xAA0000,0x00AA00,0x0000AA]

; oGui := Gui("-MinimizeBox -MaximizeBox","Choose Color")
; oGui.OnEvent("close",close_event)
; oGui.OnEvent("escape",close_event)
; oGui.AddButton("w150","Choose Color").OnEvent("click",choose_event)
; oGui.BackColor := cc
; oGui.Show("")
; return


; choose_event(ctl,info) {
    ; Global cc, defColor
    
    ; hwnd := ctl.gui.hwnd ; grab hwnd
    ; cc := "0x" ctl.gui.BackColor ; pre-select color from gui background (optional)
    
    ; cc := ColorSelect(cc,hwnd,&defColor,0) ; specifying start color, parent window, starting custom colors, and basic display
    
    ; If (cc = -1)
        ; return
    
    ; colorList := ""
    ; For k, v in defColor ; if user changes Custom Colors, they will be stored in defColor array
        ; If v
            ; colorList .= "Index: " k " / Color: " Format("0x{:06X}",v) "`r`n"
    
    ; ctl.gui.BackColor := cc ; set gui background color
    
    ; If cc
        ; msgbox "Output color: " cc "`r`n`r`nCustom colors saved:`r`n`r`n" Trim(colorList,"`r`n")
; }

; close_event(guiObj) {
    ; ExitApp
; }

; ===============================================================
; END Example
; ===============================================================

; =============================================================================================
; Parameters
; =============================================================================================
; Color           = Start color (0 = black) - Format = 0xRRGGBB
; hwnd            = Parent window
; custColorObj    = Array() to load/save custom colors, must be &VarRef
; disp            = 1=full / 0=basic ... full displays custom colors panel, basic does not
; =============================================================================================
; All params are optional.  With no hwnd the dialog will show at top left of screen.  Use an
; object serializer (like JSON) to save/load custom colors to/from disk.
; =============================================================================================

ColorSelect(Color := 0, hwnd := 0, &custColorObj := "",disp:=false) {
    Static p := A_PtrSize
    disp := disp ? 0x3 : 0x1 ; init disp / 0x3 = full panel / 0x1 = basic panel
    
    If (custColorObj.Length > 16)
        throw Error("Too many custom colors.  The maximum allowed values is 16.")
    
    Loop (16 - custColorObj.Length)
        custColorObj.Push(0) ; fill out custColorObj to 16 values
    
    CUSTOM := Buffer(16 * 4, 0) ; init custom colors obj
    CHOOSECOLOR := Buffer((p=4)?36:72,0) ; init dialog
    
    If (IsObject(custColorObj)) {
        Loop 16 {
            custColor := RGB_BGR(custColorObj[A_Index])
            NumPut "UInt", custColor, CUSTOM, (A_Index-1) * 4
        }
    }
    
    NumPut "UInt", CHOOSECOLOR.size, CHOOSECOLOR, 0             ; lStructSize
    NumPut "UPtr", hwnd,             CHOOSECOLOR, p             ; hwndOwner
    NumPut "UInt", RGB_BGR(color),   CHOOSECOLOR, 3 * p         ; rgbResult
    NumPut "UPtr", CUSTOM.ptr,       CHOOSECOLOR, 4 * p         ; lpCustColors
    NumPut "UInt", disp,             CHOOSECOLOR, 5 * p         ; Flags
    
    if !DllCall("comdlg32\ChooseColor", "UPtr", CHOOSECOLOR.ptr, "UInt")
        return -1
    
    custColorObj := []
    Loop 16 {
        newCustCol := NumGet(CUSTOM, (A_Index-1) * 4, "UInt")
        custColorObj.InsertAt(A_Index, RGB_BGR(newCustCol))
    }
    
    Color := NumGet(CHOOSECOLOR, 3 * A_PtrSize, "UInt")
    return Format("0x{:06X}",RGB_BGR(color))
    
    RGB_BGR(c) {
        return ((c & 0xFF) << 16 | c & 0xFF00 | c >> 16)
    }
}

; typedef struct tagCHOOSECOLORW {  offset      size    (x86/x64)
  ; DWORD        lStructSize;       |0      |   4
  ; HWND         hwndOwner;         |4 / 8  |   8 /16
  ; HWND         hInstance;         |8 /16  |   12/24
  ; COLORREF     rgbResult;         |12/24  |   16/28
  ; COLORREF     *lpCustColors;     |16/28  |   20/32
  ; DWORD        Flags;             |20/32  |   24/36
  ; LPARAM       lCustData;         |24/40  |   28/48 <-- padding for x64
  ; LPCCHOOKPROC lpfnHook;          |28/48  |   32/56
  ; LPCWSTR      lpTemplateName;    |32/56  |   36/64
  ; LPEDITMENU   lpEditInfo;        |36/64  |   40/72
; } CHOOSECOLORW, *LPCHOOSECOLORW;

Код: Выделить всё

		cpu = GetCPUUsage()
		If cpu < 60 Then
			mls = 500
		ElseIf cpu < 90 Then
			mls = 700
		Else
			mls = 1000
		EndIf
		# OutputDebugString("Autorun: mls = " & mls & " lng1 = " & lng1 & " lng2 = " & lng2)
		Sleep(mls)

Код: Выделить всё

 WinSetText(StartTitle & "  |  Memory: " & GetMemStats(0) & "%  CPU: " & cpu & "%") 

Код: Выделить всё

[________Autorun_________]=0
cm_UwdxBarItem=70301;Uwdx Bar Menu

Код: Выделить всё

Global BarsPath = %COMMANDER_PATH% & "\Bars"

RegisterCommand 70300 "UwdxBar"
RegisterCommand 70301 "UwdxBarItem"

Func UwdxBar(lParam)   
   Local wdx, i = 1, name, p = BarsPath, n = "Auto_uwdx", bar = p & n & '.bar'
   Local b_Ctrl = IsPressed(0x11), b_Shift = IsPressed(0x10), b_Alt = IsPressed(0x12), b_Win = IsPressed(0x58)   
   
   If Not b_Ctrl And Not b_Alt And Not b_Shift Then   
      If FileExist(bar) Then
         ShowPopupMenu /D %bar%
      Else   
         ShowHint("Не найден " & bar) 
      EndIf
      Return
   EndIf
   
   If b_Shift Then 
      CommandExec /CD:S %bar% 
      Return      
   EndIf   
   
   ShowDarkHint("Создание панели", 0)
   
   If Not CreateNewBar(p, n, 0) Then
      ShowDarkHint("Отмена операции", 0)
      Return 
   EndIf
   
   While i < 100
   
      IniRead /R wdx %COMMANDER_INI% "ContentPlugins" %"%i%-1" "stop"
      If wdx="stop" Then Break
           
      name = StrTrim(StrRight(wdx, StrLen(wdx)-StrPos(wdx, "", -1)))     
      
      IniWrite /EV- %bar% "Buttonbar" %"'Button' & %i%+1" "%COMSPEC%"
      IniWrite %bar% "Buttonbar" %"'Cmd' & %i%+1"  %"'cm_UwdxBarItem ' & %i%+1"
      IniWrite %bar% "Buttonbar" %"'Menu' & %i%+1" "%name%"      
      
      i += 1
   Wend   

   IniWrite %bar% "Buttonbar" "Buttoncount"  %"%i%"
   ShowDarkHint("Панель создана", 0)

EndFunc

Func UwdxBarItem(lParam)
   Local bar = %COMMANDER_PATH% & "\Bars\Auto_uwdx.bar"
   Local uwdx = %COMMANDER_PATH% & "\Plugins\uwdx", plugin, params, f, p, n
   Local b_Ctrl = IsPressed(0x11), b_Shift = IsPressed(0x10), b_Alt = IsPressed(0x12)
   
   If Not FileExist(uwdx & "uwdx.exe") Then
      ShowHint("Не найден " & uwdx & "uwdx.exe")
      Return
   EndIf
   
   p = RequestCopyDataInfo("SP")
   n = RequestCopyDataInfo("SN")
   f = p & n

   keys = '/i /e '
   If b_Ctrl Then keys = "/i "
   IniRead plugin %bar% "Buttonbar" %"'Menu' & lParam"
   #ShowHint(lParam & ". " & b)   
   If b_Shift Then
      ShellExec %COMSPEC% '/K TITLE %plugin% & uwdx.exe /i %plugin%' %uwdx% 
      Return
   EndIf
   ShellExec %COMSPEC% '/K TITLE %plugin% & uwdx.exe %keys% %plugin% "%f%"' %uwdx%  
EndFunc

Код: Выделить всё

Func ShowDarkHint(DarkHint, HintSleep = 1000)

   SetHintParam("ShowHint", "Font", 10, "Arial")
   SetHintParam("ShowHint", "BackColor", 0x001C1C1C)
   SetHintParam("ShowHint", "Text", 0xFFFFFF)   
  
   ShowHint(DarkHint)
   
   If HintSleep > 0 Then 
      Sleep(HintSleep)
      WinSetState(23)
   Else
      Sleep(100)   
   Endif   
   SetHintParam("ShowHint", "Reload")
   
EndFunc

Func CreateNewBar(BarPath, BarName, BackButton = true)
   
   Local bar, br2, def
   
   bar = BarPath & BarName & ".bar"
   br2 = BarPath & BarName & ".br2"   
   
   ShellExec /SW_HIDE /WAIT:2000 %COMSPEC% "/c del /f /q ""%bar%"""
   ShellExec /SW_HIDE /WAIT:2000 %COMSPEC% "/c del /f /q ""%br2%"""
   
   If FileExist(bar) Then   
      ShowDarkHint("Ошибка удаления " & bar, 0)
      Return false
   Endif
    
   IniWrite %bar% "Buttonbar" "Buttoncount"  "0"
   If ERROR = 1 Then 
      ShowDarkHint("Ошибка создания " & bar, 0)
      Return false
   EndIf
   
   IniRead def %COMMANDER_INI% "Buttonbar" "Buttonbar" "%COMMANDER_PATH%\DEFAULT.BAR"   
   
   If BackButton Then
      IniWrite %bar% "Buttonbar" "Button1" "wcmicons.dll,15"
      IniWrite %bar% "Buttonbar" "Cmd1" %def%
      IniWrite %bar% "Buttonbar" "Menu1" "Вернуться"
   Endif
      
   Return true
EndFunc

Код: Выделить всё

TOTALCMD#BAR#DATA
70300

%COMMANDER_EXE%
Панель плагинов Uwdx|Ctrl - Создание новой панели|Shift - Перейти к файлу панели

1
-1

Код: Выделить всё

RegisterCommand 70300 "UwdxBar"

Func UwdxBar(lParam)   
   ShowHint(lParam)
EndFunc

Код: Выделить всё

TOTALCMD#BAR#DATA
70300

%COMMANDER_EXE%
Функция Autorun "UwdxBar"

1
-1

Код: Выделить всё

[________Autorun_________]=0
cm_UwdxBar=70300;Uwdx Bar Menu

Код: Выделить всё

TOTALCMD#BAR#DATA
cm_UwdxBar
55
%COMMANDER_EXE%
Функция Autorun "UwdxBar" (55)

1
-1

Код: Выделить всё

RegisterCommand 70110 "WdxMenuItem" 0
RegisterCommand 70111 "WdxMenuItem" 1
RegisterCommand 70112 "WdxMenuItem" 2
RegisterCommand 70113 "WdxMenuItem" 3
RegisterCommand 70114 "WdxMenuItem" 4
RegisterCommand 70115 "WdxMenuItem" 5
...
RegisterCommand 70165 "WdxMenuItem" 55

Код: Выделить всё

b = WinFind(h, (AUTORUN_TCARCH = 32 ? "TButton" : "Button"), (AUTORUN_TCARCH = 32 ? 3 : 2))

Код: Выделить всё

Func AssocWinSynс()
   Local h = 0, i
   PostMessage(AUTORUN_TCHANDLE, 0x433, 519)
   # ожидание появления окна 
   For i = 1 To 75
       h = WinFind(0, "TDlgCustomColors")
       If h > 0 Then Break   
       Sleep(25)
       #OutputDebugString(h)
   Next
   If h > 0 Then   
      b = WinFind(h, (AUTORUN_TCARCH = 32 ? "TButton" : "Button"), (AUTORUN_TCARCH = 32 ? 3 : 2))
      SendMessage(b, 0xF5, 0, 0)
   Else
      ShowHint("Окно не найдено") 
      Return  
   Endif
   AssocUpdateWin(false)
EndFunc