Single Post - Autorun :: Total Commander

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Autorun

Author

Message

AkulaBig

Posted: Thu May 21, 2026 20:33 Post subject:

Orion9 wrote:

Первые плоды услилий Flasher?

Я не в курсе. Это его предложение?

Orion9 wrote:

С каким интервалом?

Да у меня один дополнительный поток на все. Просто добавляю туда новые функции:

Code:

Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\CloseNagScr.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\IcoNumber.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\MediaInfo.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\QuitExifTool.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\Restart.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SetTransparency.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchAssoc.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchColor.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchDrivesIcon.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchFilesIcon.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchIniSect.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchLang.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchLangUtils.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchLangWCXPlg.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchLangWFXPlg.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchLangWLXPlg.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchSound.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchTitleInfo.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\SwitchTypeHints.aucfg
Pragma Include %COMMANDER_PATH%\Plugins\wdx\Autorun\uCharDet.aucfg

RunThread ThreadWatch

Func ThreadWatch
Local cpu, mls
While 1
   ThreadWatchLang
   ThreadWatchQuitExifTool
   ThreadWatchTitleInfo
   ThreadWatchUtilsLang
   ThreadWatchWCXPlgLang
   ThreadWatchWFXPlgLang
   ThreadWatchWLXPlgLang
   # Отключаем пункты подменю "О сборке" меню "Запуск"
   # Disconnect items "About assembly" menu "Start"
   DisableMarkedMenuItems "█"

   cpu = GetCPUUsage()
   If cpu < 60 Then
      mls = 500
   ElseIf cpu < 90 Then
      mls = 700
   Else
      mls = 900
   EndIf
   Sleep(mls)
   # OutputDebugString("Autorun: AUTORUN_TCLANGFILE = " & AUTORUN_TCLANGFILE)
Wend
EndFunc

# After this line all actions are performed when TC closing
Pragma AutorunFinalizeSection
# RegDelete("HKCU\Environment", "OIT_DATA_PATH")
ShellExec(COMMANDER_PATH & "\Utils\Everything\Everything.exe", "-exit")
ProcessTerminate("~/A /W", "exiftool.exe")
DllCall("kernel32.dll\DeleteFileW", "Wstr", TEMP & "\ET_DOCS_args.txt")
DllCall("kernel32.dll\DeleteFileW", "Wstr", TEMP & "\ET_DOCS_out.txt")