Правда, я не понял, что не работало в chm-файле всё подробно описано... вроде бы
]]>
WinSetTitle, % RegExReplace(t, "S) .*%$")
. (isExit? "" : " " time " Загрузка ЦП: " SubStr("00" GetCPULoad() "%", -3))
#SingleInstance ignore
#Persistent
#NoTrayIcon
#NoEnv
OnExit, ExitSub
SetTitleMatchMode, 2
win := "Total Commander 8.01 - PowerUser v62"
SetTimer, CheckCPULoad, 500
return
CheckCPULoad:
SetBatchLines, -1
if WinExist(win)
{
WinGetTitle, t
FormatTime, time,, ddd dd MMM yyyy HH:mm:ss
WinSetTitle, % RegExReplace(t, "S) .*%$")
. (isExit? "" : " " time " Загрузка ЦП: " GetCPULoad() "%")
}
return
ExitSub:
isExit := true
SetTimer, CheckCPULoad, off
Gosub, CheckCPULoad
ExitApp
GetCPULoad()
{
static priorIdleTime, priorTickCount, idleTicks, numCPU
If !numCPU
EnvGet, numCPU, NUMBER_OF_PROCESSORS
If !idleTicks
VarSetCapacity(idleTicks, 8)
DllCall("GetSystemTimes", "UInt", &idleTicks, "UInt", 0, "UInt", 0), idleTime := *(&idleTicks)
Loop 7
IdleTime += *(&idleTicks + A_Index) << (8 * A_Index)
return Round(Abs(100 - 0.01*(idleTime - priorIdleTime)/numCPU/(A_TickCount - priorTickCount)))
, priorTickCount := A_TickCount, priorIdleTime := idleTime
}Как сделать так, что бы загрузка процессора отображалась в формате 000% - 001% - 050% - 100%, а то в Windows 8 название окна централизируется в заголовке. А так как у нас загрузка процессора - это то один символ, то два, и иногда три (при 100%)- из-за этого название в заголовке окна дёргается.
Или может есть более красивый способ, без этих лишних ноликов в начале?
]]>
SetTitleMatchMode, MatchMode
Возможные значения MatchMode:
1: заголовок окна должен начинаться со значения, заданного в WinTitle
2: заголовок окна должен содержать значение, заданное в WinTitle
3: заголовок окна должен совпадать со значением, заданным в WinTitle
По умолчанию используется 1, а вам нужно 2.
SetTitleMatchMode, 2
#SingleInstance ignore
#Persistent
#NoTrayIcon
#NoEnv
OnExit, ExitSub
win := "Total Commander 8.01 - PowerUser v61"
SetTimer, CheckCPULoad, 500
return
CheckCPULoad:
SetBatchLines, -1
if WinExist(win)
{
WinGetTitle, t
FormatTime, time,, ddd dd MMM yyyy HH:mm:ss
WinSetTitle, % RegExReplace(t, "S) .*%$")
. (isExit? "" : " " time " Загрузка ЦП: " GetCPULoad() "%")
}
return
ExitSub:
isExit := true
SetTimer, CheckCPULoad, off
Gosub, CheckCPULoad
ExitApp
GetCPULoad()
{
static priorIdleTime, priorTickCount, idleTicks, numCPU
If !numCPU
EnvGet, numCPU, NUMBER_OF_PROCESSORS
If !idleTicks
VarSetCapacity(idleTicks, 8)
DllCall("GetSystemTimes", "UInt", &idleTicks, "UInt", 0, "UInt", 0), idleTime := *(&idleTicks)
Loop 7
IdleTime += *(&idleTicks + A_Index) << (8 * A_Index)
return Round(Abs(100 - 0.01*(idleTime - priorIdleTime)/numCPU/(A_TickCount - priorTickCount)))
, priorTickCount := A_TickCount, priorIdleTime := idleTime
}То есть ищется заголовок окна с названием "Total Commander 8.01 - PowerUser v61", а как сделать так что бы искалось окно, где в заголовке есть эта фраза по мимо других? Что бы например находилось и "X^ Total Commander 8.01 - PowerUser v61"
]]>
это без проблем, а вот наоборот заменить :: на - не получается, видимо какой то конфликт...]]>#Persistent
#NoEnv
OnExit, ExitSub
;win := "Total Commander 8.01 - PowerUser"
win := "Untitled - Notepad"
SetTimer, SetTitle, 1000
return
SetTitle:
SetBatchLines, -1
if WinExist(win) {
WinGetTitle, t
StringReplace, t, t, %priorAdd%
FormatTime, time,, ddd dd MMM yyyy - HH:mm:ss
WinSetTitle, % t . (isExit? "" : priorAdd := " - " . time . " - CPU Usage: " . GetCPULoad() . "%")
}
return
ExitSub:
isExit := true
SetTimer, SetTitle, off
Gosub, SetTitle
ExitApp
GetCPULoad()
{
static priorIdleTime, priorTickCount
static numCPU := EnvGet("NUMBER_OF_PROCESSORS")
VarSetCapacity(idleTime, 8, 0)
, DllCall("GetSystemTimes", "UInt", &idleTime, "UInt", 0, "UInt", 0)
, idleTime := NumGet(idleTime)
, load := Round(Abs(100 - 0.01*(idleTime - priorIdleTime)/numCPU/(A_TickCount - priorTickCount)))
, priorTickCount := A_TickCount
, priorIdleTime := idleTime
return load
}
EnvGet(var) {
EnvGet, var, %var%
return var
}#SingleInstance ignore
#Persistent
#NoTrayIcon
SetTimer subTimer, 250
subTimer:
WinWaitActive, Total Commander 8.01 - PowerUser
FormatTime, time,, ddd dd MMM yyyy - HH:mm:ss
WinSetTitle Total Commander 8.01 - PowerUser - %time%Пытался сам разобраться, но знаний явно не хватает...
]]>