Небольшая прикольная штучка от ShellApi: показывает стандартное окно Windows "О программе", куда можно вставить свои данные и иконку.
Код:
Add(InlineCode,3759241,420,189)
{
WorkPoints=#5:About|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|30:uses kol,Share,Debug,Shellapi;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|46: procedure About(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|28:procedure THiAsmClass.About;|5:begin|65: ShellAbout(ReadHandle,'Form', 'Программа на Hiasm',Applet.icon);|4:end;|0:|4:end.|
}
Add(Button,514592,378,189)
{
Left=145
Top=100
Width=85
Height=45
Caption="О программе"
link(onClick,3759241:About,[])
}
