Вверх ↑
Ответов: 204
Рейтинг: 2
#1: 2017-02-10 16:21:57 ЛС | профиль | цитата
Nickname писал(а):
Если всё ещё нужен вариант, который даёт 100% совпадение с Windows Task Manager без лишних заморочек, то вот:


Конечно нужен! Спасибо за участие!
Вот только не работает схемка. При выполнени консольной программы, пишет: "Выполняется выход, подождите... Ошибка: Счетчики не указаны."



Код:


Add(MainForm,13860630,413,126)
{
Width=880
Height=356
Color=16777215
Caption="CPU Load example"
Position=1
link(onCreate,2552280:doGetCPULoad,[])
}
Add(MultiElementEx,2552280,518,140)
{
@Hint=#8:CPU load|
link(onCPULoad,9444309:doEvent1,[])
link(onConsoleResult,15939257:doAdd,[(570,153)(570,279)])
}
BEGIN_SDK
Add(EditMultiEx,15675124,21,21)
{
WorkCount=#12:doGetCPULoad|
EventCount=#9:onCPULoad|15:onConsoleResult|
Width=510
VOffset=70
HOffset=70
link(doGetCPULoad,1927317:doConsoleExec,[])
}
Add(WinExec,1927317,77,77)
{
Param=""\processor(_total)\% processor time""
FileName="typeperf.exe"
Point(onConsoleResult)
Point(doConsoleExec)
Point(doConsoleInput)
link(onConsoleResult,7023306:doEvent1,[])
}
Add(MultiStrData,9823270,301,77)
{
Char=","
link(onPart2,3365561:doReplace,[])
}
Add(Replace,3365561,364,84)
{
SubStr="""
link(onReplace,15675124:onCPULoad,[(464,90)(464,97)])
}
Add(Charset,9965899,238,133)
{
link(onCharset,15675124:onConsoleResult,[(400,139)(400,104)])
}
Add(Hub,7023306,196,84)
{
link(onEvent1,9823270:doSplit,[(256,90)(256,83)])
link(onEvent2,9965899:doCharset,[(224,97)(224,139)])
}
END_SDK
Add(Hub,9444309,581,140)
{
link(onEvent1,13860630:doCaption,[(615,146)(615,119)(400,119)(400,132)])
link(onEvent2,8433474:doAdd,[])
}
Add(Grapher,8433474,630,147)
{
Left=5
Top=5
Width=495
Height=315
Step=0.5
MaxValues=60
}
Add(Memo,15939257,665,273)
{
Left=505
Top=10
Width=340
Height=295
ScrollBars=3
}

карма: 1

0