atutunnik94 писал(а):
Я не могу знать, что у вас написано в IC коде А что тут не знать, взял твою схему, узнал свой IC (вряд ли вы помните авторов когда только просто качаете в свою копилку труды других форучан не предавая этому никакого значения), переделал схему по своему (сократил элементы) и дал удочку. И?
atutunnik94 писал(а):
Потому что, примерно скопировав вашу схему, на глаз, у меня вот такой результат:Я и так понимаю что это развод. Но есть что сказать. Ну, что тёска, я же говорил "завязывайте с игрушками" и вы меня дружно послали
Правда кто от этого выиграл тайна 7 королей
Можно сделать ещё оптимальней (для твоей копилки)
Add(InlineCode,9129846,420,287)
{
WorkPoints=#19:doFindSysListView32|
EventPoints=#13:onChildHandle|
Code=#19:// -=andrestudio=- |15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Windows,Share,Debug,Messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|30: onChildHandle: THI_Event;|61: procedure doFindSysListView32(var dt: TData; idx: Word);|5: end;|0:|14:implementation|0:|3:var|22: _self: THiAsmClass; |0:|73:function EnumChildProc(WndCtrl: HWND; lParam: Longint): Boolean; stdcall;|3:var|31: szClass: array[Byte] of Char;|5:begin|17: Result := True;|50: GetClassName(WndCtrl, szClass, SizeOf(szClass));|7: begin|34: // тут указываем искоммый клас|37: if szClass = 'SysListView32' then|48: // на выходе получаем Handle того что искали|47: _hi_onEvent(_self.onChildHandle,WndCtrl);|6: end;|4:end;|1: |42:procedure THiAsmClass.doFindSysListView32;|3:var|10: h: HWND;|5:begin|16: _self := Self;|40: // тут указываем Caption искомого окна|50: h := FindWindow(NIL, 'Диспетчер задач Windows');|16: if h <> 0 then|56: if (not EnumChildWindows(h, @EnumChildProc, 0)) then|11: Exit;|4:end;|0:|4:end.|
}
atutunnik94 писал(а):
Прошу приложить схему)Ну ты уж прости, это не мои слова, но в тему (тут такие говорить нельзя)
Поиск
Друзья
Администрация