Orion9
|
 Posted: Mon Dec 02, 2024 01:00 Post subject: |
 |
|
Loopback
Вызов функции ProcessCount("TOTALCMD") не находит 64-битные процессы TOTALCMD64, так и должно быть? Пока пришлось сложить значения:
| Code: | tc = ProcessCount("TOTALCMD.EXE") + ProcessCount("TOTALCMD64.EXE") |
В справке говорится про ключ /F (поиск по полному имени процесса), имеется ввиду полный путь?
P.S.
А тем временем, еще одна демо-зарисовка на тему цвета фона:
 Hidden text | Code: | # массивы значений
Global aColorsList = List(7566195, 7497811, 9865603, 8483950, 8421230)
Global aColorsList2 = List(7566195, 7497811, 9865603, 9602431, 8421230)
# начальный фон
Global ColorStart, ColorStart2
IniRead /R ColorStart %COMMANDER_INI% "Colors" "BackColor" -1
IniRead /R ColorStart2 %COMMANDER_INI% "Colors" "BackColor2" -1
# добавление начального фона к массивам
aColorsList.Add(ColorStart)
aColorsList2.Add(ColorStart2)
# вызов функции по Alt+Click на панелях
ControlSetMouseAction /L /K:A 3 SetColorNum 0
ControlSetMouseAction /L /K:A 4 SetColorNum 0
# вызов функции по коду из кнопки
RegisterCommand 70040 "SetColorNum"
Func SetColorNum(lParam)
Local bkg1, bkg2, blue, green, red, txt
# индекс цвета в массиве
Static ColorIndex = -1
ColorIndex = ColorIndex + 1
If ColorIndex > aColorsList.Count - 1 Then ColorIndex = 0
bkg1 = aColorsList[ColorIndex]
bkg2 = aColorsList2[ColorIndex]
# запись значений
IniWrite /R %COMMANDER_INI% "Colors" "BackColor" %bkg1%
IniWrite /R %COMMANDER_INI% "Colors" "BackColor2" %bkg2%
# обновление панелей
SendCommand 2957
SendCommand 2957
txt = "Фон " & ColorIndex + 1 & " из " & aColorsList.Count & auLF & "Значение: " & bkg1
if bkg1 = -1 then bkg1 = 1*255 + 256*255 + 65536*255
blue = floor(bkg1/65536)
green = bkg1 - (blue * 65536)
green = floor(green/256)
red = bkg1 - (blue * 65536) - (green * 256)
txt = txt & auLF & "Красный: " & red & auLF & "Зелёный: " & green & auLF & "Синий: " & blue
ShowHint(txt)
EndFunc |
Переключение цвета панелей в стиле Хищника 
Hidden text Ну вот, сбылась еще одна мечта, и объект List получил свою обкатку) |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
