Вверх ↑
Разработчик
Ответов: 26209
Рейтинг: 2137
#1: 2009-09-13 18:07:43 ЛС | профиль | цитата
Любитель Hiasm писал(а):
тогда не делается дамп

Немного неправильно. Запускать надо все в дополнительном потоке. Вот пример (читаем HiAsm)


Add(MainForm,16733700,252,280)
{
 Width=133
 Height=65
 BorderStyle=5
}
Add(Button,918098,252,329)
{
 Left=20
 Top=10
 Width=90
 Caption="Извлечь ключ"
 link(onClick,5743002:doStart,[])
}
Add(EnumProcess,1409621,427,329)
{
 DebugPrivilege=0
 Point(onFind)
 Point(doFindName)
 Point(doDumpMemory)
 Point(onDumpMemory)
 Point(onNotFind)
 Point(doGetProcessAccount)
 Point(onGetProcessAccount)
 Point(Stream)
 Point(doPosition)
 link(onProcess,10764728:doPart,[])
 link(ID,4947337:Value,[])
 link(Name,12590447:Value,[])
 link(onFind,1409621:doDumpMemory,[(471,342)(471,352)(415,352)(415,363)])
 link(onGetProcessAccount,10693994:doCase,[(485,363)(485,293)])
}
Add(FilePart,10764728,511,329)
{
 NameWOExt=1
 link(onName,8511611:doCase,[(559,342)(559,400)(353,400)(353,363)])
}
Add(Memory,4947337,427,217)
{
 Point(Data)
 link(onData,1409621:doFindID,[(470,223)(470,203)(405,203)(405,342)])
 link(Data,1409621:CurrentID,[(433,205)(421,205)(421,393)(433,393)])
}
Add(Thread,5743002,315,329)
{
 Delay=100
 FastStop=0
 link(onExec,1409621:doEnum,[])
}
Add(Memory,12590447,434,280)
{
 Default=String(avp.exe)
}
Add(Case,8511611,371,357)
{
 Value=String(HiAsm.exe)
 link(onTrue,1409621:doGetProcessAccount,[])
}
Add(Case,10693994,511,287)
{
 Value=String(Администратор)
 link(onTrue,4947337:doValue,[(555,300)(555,262)(415,262)(415,223)])
}




карма: 22

0