Вверх ↑
Ответов: 1343
Рейтинг: 31
#1: 2013-08-30 08:58:05 ЛС | профиль | цитата
у меня 216

вот программа для определения рунтаймов

Make(delphi)
ver(4.04 build 184)
Add(MainForm,10089854,602,161)
{
Width=337
Height=104
Caption="iFoundBug v 1.01 for HiAsm4"
Position=1
Point(doVisible)
}
Add(EnumProcess,1,616,315)
{
Name="HiAsm.exe"
Point(doFindName)
Point(doTerminateApp)
Point(onEndEnum)
link(onProcess,913119:doSearch,[])
link(onEndEnum,9898452:doWork3,[(655,328)])
}
Add(Position,913119,665,315)
{
Target="HiAsm.exe"
StartPos=0
ShortSearch=1
link(onSearch,1:doKill,[(709,321)(709,364)(605,364)(605,335)])
}
Add(MathParse,6921369,441,371)
{
DataCount=1
MathStr="1 XOR ((%1 = 8) OR ((%1 < 58) AND (%1 > 47)) OR ((%1 < 71) AND (%1 > 64)) OR ((%1 < 103) AND (%1 > 96))) "
ResultType=0
link(onResult,15365421:doReadOnly,[(480,377)(480,411)(388,411)(388,321)])
}
Add(Convertor,3538249,399,371)
{
Mode=3
link(onResult,6921369:doCalc,[])
}
Add(Edit,15365421,399,301)
{
Left=190
Width=110
Height=25
Font=[MS Sans Serif,14,0,0,1]
Text=""
MaxLenField=8
ClearAfterEnter=1
Point(onChar)
Point(doReadOnly)
Point(doSetFocus)
link(onEnter,15187644:doWork2,[])
link(onChar,3538249:doConvert,[(443,321)(443,339)(394,339)(394,377)])
}
Add(Label,12751195,602,203)
{
Width=185
Height=25
Font=[MS Sans Serif,14,0,0,1]
Caption="Runtime Error xxx at"
}
Add(CheckBox,13015840,567,266)
{
Top=32
Width=329
Align=4
Caption="Close HiAsm Automatically "
}
Add(IndexToChanel,14112223,567,308)
{
Point(Index)
link(onEvent1,9898452:doWork2,[])
link(onEvent2,1:doEnum,[])
link(Index,13015840:Checked,[])
}
Add(BitBtn,8848863,28,168)
{
Left=300
Width=28
Height=26
WinStyle=1
Bitmap=[ZIP3609000078DA73F235E36400033320D600620928666450804840E591C17F7AE0FFFF69830799F9F0301D62E6E302D4301FD91C747309DA41C07C74FDD8DC8DD70E3CE63390182FA498CF40469AC5AA87CEE6134A23F8C4B0EA1966E143AFF4438FF44F8FFC4B8FF2674894CFA318111E501A240AA21B686827C86C0082C8CFF1]
Point(onMouseDown)
link(onMouseDown,13657323:doEvent1,[])
}
Add(Timer,7902216,140,182)
{
Interval=100
Enable=1
link(onTimer,3079690:doReadKey,[])
}
Add(Keyboard,3079690,189,182)
{
Key=1
link(onReadKey,8327191:doEvent,[])
}
Add(IndexToChanel,8327191,238,182)
{
Count=1
link(onEvent1,15825518:doEvent1,[])
}
Add(Hub,15825518,280,182)
{
link(onEvent1,7902216:doStop,[(303,188)(303,218)(135,218)(135,195)])
link(onEvent2,14550971:doEvent1,[])
}
Add(ChanelToIndex,8531589,546,189)
{
link(onIndex,10089854:doVisible,[])
}
Add(Hub,13657323,98,175)
{
link(onEvent1,2014895:In,[(126,181)(126,174)])
link(onEvent2,7902216:doTimer,[])
}
Add(LineBreak,668410,532,161)
{
Caption="doHide"
link(Out,8531589:doWork1,[(592,167)(592,181)(534,181)(534,195)])
Primary=[2014895,-392,7]
}
Add(Hub,14550971,322,189)
{
OutCount=3
link(onEvent1,1915601:doData,[(406,195)(406,97)])
link(onEvent2,8531589:doWork2,[])
link(onEvent3,15365421:doSetFocus,[(365,209)(365,328)])
}
Add(MultiElementEx,1915601,413,91)
{
@Hint=#24:Error message box reader|19:SendMessage version|
link(onCopy,5992494:In,[])
}
BEGIN_SDK
Add(EditMultiEx,5756599,21,21)
{
WorkCount=#6:doData|
EventCount=#6:onCopy|
Width=412
link(doData,5834539:doData,[(35,27)(35,97)])
}
Add(MouseEvent,2701288,119,49)
{
Point(Handle)
}
Add(Position,234326,273,133)
{
Target=" at 000"
StartPos=0
ShortSearch=1
link(onSearch,13714767:doOperation,[])
link(Str,3605979:Var2,[])
}
Add(Math,13714767,322,133)
{
Op2=7
ResultType=0
link(onResult,12025091:doCopy,[])
}
Add(Copy,12025091,364,133)
{
Count=5
link(onCopy,5756599:onCopy,[(425,139)(425,27)])
link(Str,3605979:Var3,[(370,117)])
}
Add(GetDataEx,3605979,273,112)
{
Angle=3
link(Data,13155387:Value,[(256,117)(256,177)(237,177)])
}
Add(SendMessage,15421399,133,140)
{
Message=13
link(onSend,16305821:doGet,[])
link(Handle,2701288:Handle,[])
link(LParam,1164314:Memory,[(153,131)(209,131)])
}
Add(MemoryStream,1164314,189,84)
{
Point(Memory)
Point(doSize)
}
Add(DataToFile,16305821,189,133)
{
Type=6
link(onGet,13155387:doValue,[])
link(Stream,1164314:Stream,[])
}
Add(Hub,8233292,98,91)
{
OutCount=3
link(onEvent1,1164314:doClear,[])
link(onEvent2,1164314:doSize,[])
link(onEvent3,15421399:doSendMessage,[(122,111)(122,146)])
}
Add(DoData,5834539,49,91)
{
Data=Integer(128)
link(onEventData,8233292:doEvent1,[])
}
Add(Memory,13155387,231,133)
{
link(onData,234326:doSearch,[])
}
END_SDK
Add(LineBreak,15879967,329,308)
{
Caption="doTxt"
link(Out,15365421:doText2,[])
Primary=[5992494,126,-217]
}
Add(MultiElementEx,15450613,413,49)
{
@Hint=#24:Error message box reader|15:WinInfo version|
}
BEGIN_SDK
Add(EditMultiEx,569034,21,21)
{
WorkCount=#6:doData|
EventCount=#6:onCopy|
Width=412
link(doData,2459071:doWinInfo,[(109,27)(109,132)])
}
Add(MouseEvent,15165435,182,49)
{
Point(Handle)
}
Add(DoData,7830115,245,126)
{
link(onEventData,569034:onCopy,[(355,132)(355,27)])
link(Data,2459071:Caption,[(251,114)(230,114)(230,170)(209,170)])
}
Add(WinInfo,2459071,196,126)
{
link(onWinInfo,7830115:doData,[])
link(Handle,15165435:Handle,[])
}
END_SDK
Add(FormatStr,4856907,721,308)
{
DataCount=1
Mask="function run(){
sys.addcompiler("Delphi",""%fname%" "-U %opath%." -Q -F%1","%curdir%compiler\delphi\dcc32.exe","dpr");
sys.setcompiler("delphi","Delphi_DBG");
}"
link(onFString,9435683:doEvent1,[(758,314)(758,335)])
link(Str1,9456644:Var,[])
}
Add(HubEx,9898452,651,308)
{
link(onEvent,4856907:doString,[])
}
Add(StrList,9418387,791,308)
{
FileName="ifndbg.his"
}
Add(Hub,9435683,763,329)
{
OutCount=3
link(onEvent1,9418387:doText,[])
link(onEvent2,9418387:doSave,[(784,342)(784,349)])
link(onEvent3,8609104:doShellExec,[(784,349)(784,377)])
}
Add(Button,1448331,399,259)
{
Top=52
Width=329
Height=25
Align=4
Color=4
Caption="Analize IT!"
link(onClick,15187644:doWork1,[(438,265)])
}
Add(LineBreak,8368495,399,343)
{
Type=1
link(Data,15365421:Text,[])
Primary=[9456644,322,-56]
}
Add(HubEx,15187644,434,308)
{
link(onEvent,14112223:doEvent,[])
}
Add(WinExec,8609104,791,364)
{
Param=" "
FileName="ifndbg.his"
}


как пользоваться не знаю
карма: 2

0