Add(MainForm,2045502,56,203)
{
 Width=380
 Height=216
 Position=1
}
Add(Button,5894916,259,203)
{
 Left=120
 Top=110
 Width=90
 Height=25
 link(onClick,14786104:Icon,[])
}
Add(InlineCode,14786104,336,203)
{
 WorkPoints=#4:Icon|
 EventPoints=#10:onFilename|7:onIndex|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|24:   onFilename:THI_Event;|21:   onIndex:THI_Event;|47:   procedure Icon(var _Data:TData; Index:word);|5: end;|0:|14:implementation|79:function ChangeIconDialog(hOwner: tHandle; var FileName: string; var IconIndex:|20:  Integer): Boolean;|4:type|64:  SHChangeIconProcW = function(Wnd: HWND; szFileName: PWideChar;|65:    Reserved: Integer; var lpIconIndex: Integer): DWORD; stdcall;|5:const|26:  Shell32 = 'shell32.dll';|3:var|23:  ShellHandle: THandle;|35:  SHChangeIconW: SHChangeIconProcW;|39:  BufW: array[0..MAX_PATH] of WideChar;|5:begin|18:  Result := False;|23:  SHChangeIconW := nil;|53:  ShellHandle := Windows.LoadLibrary(PChar(Shell32));|5:  try|28:    if ShellHandle <> 0 then|9:    begin|63:        SHChangeIconW := GetProcAddress(ShellHandle, PChar(62))|8:    end;|0:|35:    if Assigned(SHChangeIconW) then|9:    begin|53:      StringToWideChar(FileName, BufW, SizeOf(BufW));|73:      Result := SHChangeIconW(hOwner, BufW, SizeOf(BufW), IconIndex) = 1;|20:      if Result then|25:        FileName := BufW;|7:    end|8:    else|9:  finally|28:    if ShellHandle <> 0 then|31:      FreeLibrary(ShellHandle);|6:  end;|4:end;|0:|0:|27:procedure THiAsmClass.Icon;|3:var|16:  file1: string;|18:  index1: Integer;|5:begin|35:ChangeIconDialog(0, file1, index1);|31:_hi_onEvent(onFilename, file1);|29:_hi_onEvent(onIndex, index1);|4:end;|0:|4:end.|
 link(onFilename,7880657:doText,[(398,209)(398,188)])
 link(onIndex,9342710:doText,[(398,216)(398,237)])
}
Add(Label,1825211,28,14)
{
 Left=25
 Top=15
 Width=20
 Height=17
 Caption="File"
}
Add(Edit,7880657,427,182)
{
 Left=65
 Top=15
 Width=245
}
Add(Label,14873444,28,63)
{
 Left=25
 Top=50
 Width=30
 Height=17
 Caption="Index"
}
Add(Edit,9342710,427,231)
{
 Left=65
 Top=45
 Width=245
}