Add(MainForm,6483502,98,119)
{
 Caption="Пример использования Registry"
 Point(onClose)
 link(onCreate,11331149:doRead,[])
 link(onClose,6001418:doData,[])
}
Add(Edit,5403274,245,133)
{
 Left=85
 Top=95
 Width=205
 Font=[Arial,10,0,0,1]
 Text="write text and close"
}
Add(Registry,11331149,196,133)
{
 HKey=2
 Key="Software\fNAME"
 Value="text"
 link(onRead,5403274:doText,[])
}
Add(DoData,6001418,147,140)
{
 link(onEventData,11331149:doWrite,[])
 link(Data,5403274:Text,[(153,121)(294,121)(294,178)(251,178)])
}

Add(MainForm,10754008,266,77)
{
 Caption="Пример использования Registry"
}
Add(Registry,13360963,336,133)
{
 HKey=1
 Key="Software\Microsoft\Windows\CurrentVersion\Run"
 Value="notepad"
 NotEmpty=1
 Point(doDeleteValue)
 link(Data,9904823:Text,[])
}
Add(Button,12583442,266,140)
{
 Left=145
 Top=95
 Width=110
 Caption="insert"
 link(onClick,13360963:doWrite,[])
}
Add(Edit,9904823,336,77)
{
 Left=75
 Top=120
 Width=240
 Text="C:\\WINDOWS\\notepad.exe"
}

Add(MainForm,2953706,21,105)
{
 Width=354
 Height=266
 Caption="Пример использования Registry"
 BorderStyle=1
}
Add(Registry,10028357,161,98)
{
 HKey=2
 Key="SYSTEM\CurrentControlSet\Control\Nls\CodePage"
 Value="1250"
 link(Data,1600398:Text,[])
}
Add(Registry,16218840,161,168)
{
 HKey=2
 Key="SYSTEM\CurrentControlSet\Control\Nls\CodePage"
 Value="1250"
 Point(doExistsValue)
 link(onRead,3385885:doText,[])
}
Add(Button,14411555,98,105)
{
 Left=60
 Top=115
 Caption="Write"
 link(onClick,10028357:doWrite,[])
}
Add(Button,1553716,98,168)
{
 Left=190
 Top=115
 Caption="Read"
 link(onClick,16218840:doRead,[])
}
Add(Edit,3385885,224,168)
{
 Left=190
 Top=80
 Width=55
}
Add(Edit,1600398,161,35)
{
 Left=60
 Top=80
 Width=60
 Text="c_1251.nls"
}