Add(InlineCode,4886426,287,140)
{
 WorkPoints=#1:a|
 EventPoints=#1:e|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|37:uses kol,Share,Debug,activex,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|16:    e:THI_Event;|0:|42:    procedure a(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|78:function SHChangeIconDialog(hOwner: LongInt; sFilename: LPWSTR; nBuf: LongInt;|78:  var nIconIndex: LongInt): LongInt; stdcall; external 'Shell32.dll' index 62;|0:|24:procedure THiAsmClass.a;|16:var c,d:LongInt;|13:    s:string;|22:    nFileName: LPWSTR;|19:    FNLen: Integer;|5:begin|19: s := ToString(dt);|24: FNLen := Length(s) + 1;|55: nFileName := CoTaskMemAlloc(FnLen * sizeof(WideChar));|39: StringToWideChar(s, nFileName, FnLen);|8: c := 0;|51: d := SHChangeIconDialog(ReadHandle,nFileName,0,c);|23: if d = 0 then c := -1;|18: _hi_OnEvent(e,c);|4:end;|0:|4:end.|
 link(e,4686143:doMessage,[])
}
Add(Button,816674,238,140)
{
 Left=90
 Top=75
 Data=String(C:WINDOWS\explorer.exe)
 link(onClick,4886426:a,[])
}
Add(Message,4686143,350,140)
{
}