Вверх ↑
Этот топик читают: Гость
Ответов: 590
Рейтинг: 19
#1: 2009-07-10 17:45:56 ЛС | профиль | цитата
code_14074.txt
Программа вылетает... один раз получилось нормально сделать.. а теперь даже не знаю в чем проблема...
карма: 0

0
файлы: 1code_14074.txt [386B] [132]
Разработчик
Ответов: 26322
Рейтинг: 2147
#2: 2009-07-10 17:50:12 ЛС | профиль | цитата
Вот это работает прекрасно


Add(EnumProcess,16426208,280,133)
{
DebugPrivilege=0
Point(doGetMemoryInfo)
Point(doFindName)
Point(onFind)
Point(onGetMemoryInfo)
link(onFind,16426208:doGetMemoryInfo,[(321,146)(321,122)(268,122)(268,160)])
link(onGetMemoryInfo,4388562:doOperation,[])
}
Add(Application,491441,231,105)
{
}
Add(Edit,3029900,378,147)
{
Left=45
Top=45
Width=130
Text=""
}
Add(FilePart,4801445,231,154)
{
NameWOExt=1
link(onName,16426208:doFindName,[])
link(FileName,491441:AppFileName,[])
}
Add(Timer,822341,182,154)
{
Interval=100
link(onTimer,4801445:doPart,[])
}
Add(Math,4388562,329,147)
{
OpType=7
Op2=1000
ResultType=0
link(onResult,3029900:doText,[])
}

------------ Дoбавленo в 17.51:
EcsTasY, сначала надо найти процесс, а затем использовать к найденному doGetMemoryInfo.

doGetMemoryInfo=Получает размер памяти текущего процесса в килобайтах

Текущим яавляется найденный процесс
карма: 22

1
Голосовали:EcsTasY
Ответов: 590
Рейтинг: 19
#3: 2009-07-10 18:50:10 ЛС | профиль | цитата
nesco писал(а):
сначала надо найти процесс

Ок, ясно, спс... плохо, что он не ищет сам, при передачи на точку doGetMemoryInfo, процесс
------------ Дoбавленo в 19.15:
Дабы не засорять форум, да и проблема, как мне показалось, не до конца решена... Задаю еще один вопрос..
В первом варианте всё нормально... а во втором проблема... почему-то debug выдает только первый процесс (smss.exe), хотя идет перебор массива, и вылетает... Не уж-то одним компонентом EnumProcess эту задачу не решить

Add(MainForm,2953706,28,70)
{
}
Add(EnumProcess,16426208,210,378)
{
DebugPrivilege=0
Point(doGetMemoryInfo)
Point(doFindName)
Point(onFind)
Point(onGetMemoryInfo)
Point(onEndEnum)
link(onProcess,2875900:doPart,[])
link(onFind,16426208:doGetMemoryInfo,[(255,391)(255,359)(198,359)(198,405)])
link(onGetMemoryInfo,8971747:doString,[(279,398)(279,517)])
link(onEndEnum,12478272:doEnum,[(264,405)(264,461)])
}
Add(EnumProcess,7255851,203,70)
{
DebugPrivilege=0
Point(doGetMemoryInfo)
Point(doFindName)
Point(onFind)
Point(onGetMemoryInfo)
Point(onEndEnum)
link(onProcess,14390826:doPart,[])
link(onEndEnum,14849070:doEnum,[(267,97)(267,209)])
}
Add(FormatStr,8971747,357,511)
{
link(onFString,2280473:doAdd,[])
link(Str1,12478272:Item,[])
}
Add(StrList,5201970,343,385)
{
}
Add(ArrayEnum,12478272,357,455)
{
link(onItem,5251123:doEvent,[])
link(Array,5201970:Array,[])
}
Add(RichEdit,2280473,413,511)
{
Left=10
Top=30
Width=360
Height=220
ScrollBars=2
}
Add(Button,10968121,140,70)
{
Left=15
Top=5
link(onClick,7255851:doEnum,[])
}
Add(Button,7910478,147,378)
{
Left=75
Top=5
link(onClick,16426208:doEnum,[])
}
Add(FilePart,2875900,287,378)
{
NameWOExt=1
link(onName,5201970:doAdd,[])
}
Add(EnumProcess,5316790,203,238)
{
DebugPrivilege=0
Point(doGetMemoryInfo)
Point(doFindName)
Point(onFind)
Point(onGetMemoryInfo)
Point(onEndEnum)
link(onFind,5316790:doGetMemoryInfo,[(244,251)(244,223)(187,223)(187,265)])
link(onGetMemoryInfo,11133575:doString,[(293,258)(293,307)])
}
Add(FormatStr,11133575,350,301)
{
link(onFString,16656133:doAdd,[])
link(Str1,14849070:Item,[])
}
Add(StrList,2208842,336,77)
{
}
Add(ArrayEnum,14849070,350,203)
{
link(onItem,10123309:doEvent,[])
link(Array,2208842:Array,[])
}
Add(RichEdit,16656133,406,301)
{
Left=10
Top=30
Width=360
Height=220
ScrollBars=2
}
Add(FilePart,14390826,280,70)
{
NameWOExt=1
link(onName,2208842:doAdd,[])
}
Add(Debug,5251123,413,455)
{
link(onEvent,16426208:doFindName,[(435,461)(435,435)(198,435)(198,412)])
}
Add(Debug,10123309,399,203)
{
link(onEvent,5316790:doFindName,[(421,209)(421,285)(191,285)(191,272)])
}
карма: 0

0
Разработчик
Ответов: 26322
Рейтинг: 2147
#4: 2009-07-10 19:59:35 ЛС | профиль | цитата
EcsTasY, нафига весь этот бред


Add(MainForm,2830700,336,357)
{
}
Add(EnumProcess,16426208,413,413)
{
DebugPrivilege=0
Point(doGetMemoryInfo)
Point(doFindName)
Point(onFind)
Point(onGetMemoryInfo)
Point(onEndEnum)
link(onProcess,2875900:doPart,[])
link(onGetMemoryInfo,8971747:doString,[(458,433)(458,475)])
}
Add(FormatStr,8971747,518,469)
{
link(onFString,2280473:doAdd,[])
link(Str1,6081480:Value,[])
}
Add(RichEdit,2280473,574,469)
{
Left=10
Top=30
Width=360
Height=220
ScrollBars=2
}
Add(Button,7910478,336,413)
{
Left=75
Top=5
link(onClick,16426208:doEnum,[])
}
Add(FilePart,2875900,469,413)
{
NameWOExt=1
link(onName,6081480:doValue,[])
}
Add(Memory,6081480,518,420)
{
link(onData,16426208:doGetMemoryInfo,[(564,426)(564,400)(389,400)(389,440)])
}

карма: 22

1
Голосовали:EcsTasY
4
Сообщение
...
Прикрепленные файлы
(файлы не залиты)