У меня в "SoftwareHiasm_prog" хранятся все пути к сервисным (для HiAsm) программам.
Add(MainForm,2953706,175,105)
{
Width=508
Height=96
}
Add(Registry,117125,238,63)
{
HKey=1
Key="softwarehiasm_prog"
Value="dbname"
link(onRead,11123252:doText2,[(306,69)(306,118)])
}
Add(DropFile,16683987,238,105)
{
link(onDropFile,14004071:doWork2,[])
}
Add(HubEx,14004071,280,105)
{
link(onEvent,11123252:doText,[])
}
Add(Button,14099037,175,147)
{
@Color=16766164
Left=5
Top=10
Width=65
Height=21
Font=[Tahoma,9,1,0,204]
TabOrder=-1
Caption="Browse"
link(onClick,2567534:doExecute,[])
}
Add(ODialog,2567534,238,147)
{
Filter="SQLite files|*.db|New Format|*.db3|All|*.*"
FileName=""
link(onExecute,14004071:doWork3,[(284,153)])
}
Add(Edit,11123252,357,105)
{
Left=80
Top=10
Width=330
Color=15793151
Font=[Arial,9,1,0,204]
Text=""
link(onChange,117125:doWrite,[(411,111)(411,55)(226,55)(226,76)])
}
Add(Button,11958215,294,147)
{
@Color=16766164
Left=420
Top=10
Width=60
Height=21
Font=[Tahoma,9,1,0,204]
TabOrder=-1
Caption="Open"
link(onClick,895851:doData,[])
}
Add(DoData,895851,357,147)
{
link(Data,11123252:Text,[])
}