Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Autorun 
Author Message
Orion9



PostPosted: Sat Nov 08, 2025 13:50    Post subject: Reply with quote

A55555
Я понял. Весь файл нет смысла скидывать, поменяйте просто заголовок и несколько строк в функции.

Было:
Code:
Global gTorrentDbg = 0, gDbgStep, gCapsReverse = 0, gTorrentUrl, gTorrentLog
Global gTorrentSize = 0, gTorrentCount = 0, gDriveInclude = "e:\;f:\;g:\;h:\;i:\;j:\"

Стало:
Code:
Global gTorrentDbg = 0, gDbgStep, gCapsReverse = 0
Global gTorrentLog, gTorrentUrl, gTorrentUrlClip = 1
Global gTorrentSize = 0, gTorrentCount = 0, gDriveInclude = "e:\;f:\;g:\;h:\;i:\;j:\"

Было:
Code:
gTorrentLog = StrTrim(gTorrentLog)
If Not StrPos(gTorrentUrl, "http") Then gTorrentUrl = sComm
If Not StrPos(gTorrentUrl, "http") Then gTorrentUrl = "[No valid URL] " & FileGetName(TorrFile)

Стало:
Code:
gTorrentLog = StrTrim(gTorrentLog)
If StrPos(sComm, "http") Then
   gTorrentUrl = sComm
Else
   If Not StrPos(gTorrentUrl, "http") Then gTorrentUrl = "[No valid URL] " & FileGetName(TorrFile)   
EndIf
If gTorrentUrlClip Then ClipPut(gTorrentUrl)


Loopback
Да, я забыл, что у Autorun есть проблемы с субплагинами и статистикой, но вопрос стоит по-прежнему остро: какой смысл в GetState("threads"), который ничего не показывает? К примеру, я запускаю несколько потоков через кнопки, а вижу только "Main". И зря вы так про менеджер. Задача менеджера как раз в том, чтобы показывать все потоки, даже те, которые запускаются на доли секунды.

Loopback wrote:
В общем тут надо думать.

Надо, наверное. Иначе путаница получается. Или придётся самостоятельно следить за маркером. Пока добавил условие:
Code:
Local bom = FileRead(gHBarFile, 2, "RAW")
If ERROR = 1 Then
   gHBarLoadError = 1
   gHBarCP = "Unknown"       
   Return
EndIf   
If bom = "FFFE" Then
   gHBarCP = "UTF-16"
Else
   gHBarCP = "ANSI"
EndIf

Вроде работает. Но я смотрю у Гислера юникодная панель даже без маркера открывается, видимо он реализовал какой-то простенький алгоритм для этого типа проверки на нулевой байт или что-то в этом роде. Посмотрю, в общем, как лучше сделать. Одно радует: ни в UTF-8, ни в UTF-16 BE тотал панели не открывает, именно поэтому стоит проверка только на FFFE.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group