Add(MainForm,2953706,98,154)
{
}
Add(Edit,13358286,294,140)
{
 Left=15
 Top=5
 Width=115
 Text="C:\cout.out"
}
Add(Edit,16575284,343,140)
{
 Left=15
 Top=35
 Width=115
 Text="C:\cout.txt"
}
Add(Button,1323108,266,203)
{
 Left=140
 Top=35
 Width=100
 Caption="CreateHard"
 link(onClick,6185762:doCreateHard,[])
}
Add(InlineCode,6185762,315,203)
{
 WorkPoints=#12:doCreateHard|16:doCreateSymbolic|
 EventPoints=#8:onCreate|
 DataPoints=#10:SourceFile|8:LinkFile|
 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|23:    onCreate:THI_Event;|4:    |34:    SourceFile,LinkFile:THI_Event;|4:    |56:    procedure doCreateHard(var _Data:TData; Index:word);|60:    procedure doCreateSymbolic(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|176:function CreateSymbolicLink(lpFileName,lpExistingFileName:PChar; lpSecurityAttributes:PSecurityAttributes):boolean; stdcall; external 'kernel32.dll' name 'CreateSymbolicLinkA';|0:|35:procedure THiAsmClass.doCreateHard;|5:begin|123:  _hi_onEvent(onCreate,integer(CreatehardLink(PChar(ReadString(_Data,LinkFile)),PChar(ReadString(_Data,SourceFile)),nil)));|4:end;|0:|39:procedure THiAsmClass.doCreateSymbolic;|5:begin|127:  _hi_onEvent(onCreate,integer(CreateSymbolicLink(PChar(ReadString(_Data,LinkFile)),PChar(ReadString(_Data,SourceFile)),nil)));|4:end;|0:|4:end.|
 link(onCreate,10084159:doMessage,[])
 link(SourceFile,13358286:Text,[(321,187)(300,187)])
 link(LinkFile,16575284:Text,[(328,187)(349,187)])
}
Add(Message,10084159,364,203)
{
}
Add(Button,8719893,266,252)
{
 Left=140
 Top=5
 Width=100
 Caption="CreateSymbolic"
 link(onClick,6185762:doCreateSymbolic,[(306,258)(306,216)])
}