Любитель 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)])
}