Вверх ↑
Ответов: 1925
Рейтинг: 172
#1: 2017-11-26 11:25:14 ЛС | профиль | цитата
flint2,
Add(InlineCode,12576520,504,392)
{
WorkPoints=#1:a|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses kol,Share,Debug, Windows, ShellApi;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: //:THI_Event;|0:|42: procedure a(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.a;|5:begin|89: //ShellExecute(ToInteger(dt), PChar(Action), PChar(Fn), PChar(Params), Dir, _prop_Mode);|126: ShellExecute(ToInteger(dt), 'open', 'C:\Program Files\Internet Explorer\iexplore.exe', 'C:\books1.html', nil, SW_SHOWNORMAL);|17: //_hi_OnEvent();|4:end;|0:|4:end.|
}
Add(Button,15425360,315,280)
{
Left=10
Top=10
link(onClick,434025:doEnum,[])
}
Add(WinEnum,434025,399,280)
{
link(onFindWindow,4453174:In,[])
}
Add(WinTools,12788067,399,343)
{
Point(FileName)
link(Handle,4605163:Var2,[])
}
Add(If_else,15541528,406,392)
{
Op2=String(C:\Program Files\Internet Explorer\iexplore.exe)
link(onTrue,11767257:doData,[])
link(Op1,12788067:FileName,[])
}
Add(LineBreak,5383107,364,392)
{
link(Out,15541528:doCompare,[])
Primary=[4453174,77,-112]
}
Add(DoData,11767257,455,392)
{
link(onEventData,12576520:a,[])
link(Data,4605163:Var3,[(461,327)])
}
Add(GetDataEx,4605163,399,322)
{
link(Data,434025:Handle,[])
}

Бесполезно. Может, это IE только такой упрямый, но хрома у меня нет.
карма: 9
0
Редактировалось 1 раз(а), последний 2017-11-26 11:25:26