Add(MainForm,2953706,168,112)
{
 Width=364
 Height=98
}
Add(InlineCode,15752035,224,168)
{
 WorkPoints=#9:doKillDll|
 EventPoints=#8:onResult|
 DataPoints=#7:NameDll|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|23:   onResult: THI_Event;|22:   NameDll: THI_Event;|54:   procedure doKillDll(var _Data: TData; Index: Word);|5: end;|0:|14:implementation|0:|32:procedure THiAsmClass.doKillDll;|3:var|16:  hDLL: THandle;|30:  aName: array[0..64] of char;|20:  FoundDLL: Boolean;|19:  aDllName: string;|5:begin|41:  aDllName := ReadString(_Data, NameDll);|28:  StrPCopy(aName, aDllName);|20:  FoundDLL := False;|8:  repeat|35:    hDLL := GetModuleHandle(aName);|20:    if hDLL = 0 then|10:    Break;|21:    FoundDLL := True;|22:    FreeLibrary(hDLL);|14:  until False;|18:  if FoundDLL then|36:    _hi_OnEvent(onResult,'Success!')|6:  else|44:    _hi_OnEvent(onResult, 'DLL not found!');|4:end;|0:|0:|0:|4:end.|
 link(onResult,2483317:doMessage,[])
 link(NameDll,10145365:Text,[])
}
Add(Button,8729593,168,168)
{
 Left=145
 Top=35
 TabOrder=-1
 Caption="Kill"
 link(onClick,15752035:doKillDll,[])
}
Add(Edit,10145365,224,112)
{
 Left=110
 Top=10
 Width=130
 Text="My.dll"
}
Add(Message,2483317,280,168)
{
}