#sha
Add(Button,9582065,203,182)
{
 Left=15
 Top=20
 Width=75
 Height=25
 link(onClick,16566738:doData,[])
}
Add(Edit,781667,252,133)
{
 Left=110
 Top=20
 Width=230
 Text="Feder.bmp"
}
Add(DoData,16566738,252,182)
{
 link(onEventData,14240768:doSetWallpaper,[])
 link(Data,781667:Text,[])
}
Add(InlineCode,14240768,308,182)
{
 WorkPoints=#14:doSetWallpaper|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|9:   public|54:     procedure doSetWallpaper(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|37:procedure THiAsmClass.doSetWallpaper;|5:begin|86:  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar(ToString(dt)), SPIF_SENDCHANGE);|4:end;|0:|4:end.|
}