Add(MainForm,12720070,273,182)
{
 Width=685
 Height=472
 Caption="1859"
 link(onCreate,9129846:doFindSysListView32,[])
}
Add(GlobalVar,10882181,532,203)
{
 @Color=16755285
 Name="handle"
 link(onValue,14626141:doEvent1,[])
}
Add(Hub,14626141,623,203)
{
 OutCount=6
 link(onEvent3,11637466:doClear,[])
 link(onEvent4,8093015:doGetListViewHeader,[])
 link(onEvent5,8093015:doGetListViewRow,[])
}
Add(InlineCode,8093015,700,224)
{
 WorkPoints=#19:doGetListViewHeader|16:doGetListViewRow|
 EventPoints=#8:onHeader|5:onRow|
 DataPoints=#8:inHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,windows,Share,Debug;|0:|5:const|27: HDM_FIRST         = $1200;|27: LVM_FIRST         = $1000;|36: LVM_GETHEADER     = LVM_FIRST + 31;|35: HDM_GETITEMCOUNT  = HDM_FIRST + 0;|27: HDI_TEXT          = $0002;|27: HDF_STRING        = $4000;|2:  |35: LVM_GETITEMCOUNT  = LVM_FIRST + 4;|1: |4:type|19:  HD_ITEM =  record|19:    Mask: Cardinal;|17:    cxy: Integer;|23:    pszText: PAnsiChar;|17:    hbm: HBITMAP;|24:    cchTextMax: Integer;|17:    fmt: Integer;|19:    lParam: LPARAM;|22:    iImage: Integer;  |22:    iOrder: Integer;  |7:  end; |2:  |4:type|18:  LV_ITEM = record|15:    mask: UINT;|19:    iItem: Integer;|22:    iSubItem: Integer;|16:    state: UINT;|20:    stateMask: UINT;|23:    pszText: PAnsiChar;|24:    cchTextMax: Integer;|20:    iImage: Integer;|19:    lParam: LPARAM;|21:    iIndent: Integer;|8:  end;  |1: |0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|25:      onHeader:THI_Event;|22:      onRow:THI_Event;|25:      inHandle:THI_Event;|3:   |50:     procedure GetListViewHeader(ALVHandle: HWND);|47:     procedure GetListViewRow(ALVHandle: HWND);|59:     procedure doGetListViewHeader(var dt:TData; idx:word);|56:     procedure doGetListViewRow(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|46:function ListView_GetHeader(hwnd: HWND): HWND;|5:begin|51:  Result := SendMessage(hwnd, LVM_GETHEADER, 0, 0);|4:end;|0:|52:function Header_GetItemCount(Header: HWnd): Integer;|5:begin|56:  Result := SendMessage(Header, HDM_GETITEMCOUNT, 0, 0);|4:end;|0:|79:function Header_GetItem(Header: HWnd; Index: Integer; var Item: HD_ITEM): Bool;|5:begin|76:  Result := Bool( SendMessage(Header, HDM_GETITEM, Index, Longint(@Item)) );|4:end;|0:|52:function ListView_GetItemCount(hWnd: HWND): Integer;|5:begin|54:  Result := SendMessage(hWnd, LVM_GETITEMCOUNT, 0, 0);|4:end;|0:|42:procedure THiAsmClass.doGetListViewHeader;|18:var hwnd:Cardinal;|5:begin|35:  hwnd := ReadInteger(dt,inHandle);|24:  if hwnd = 0 then exit;|26:  GetListViewHeader(hwnd);|4:end;|0:|39:procedure THiAsmClass.doGetListViewRow;|18:var hwnd:Cardinal;|5:begin|35:  hwnd := ReadInteger(dt,inHandle);|24:  if hwnd = 0 then exit;|23:  GetListViewRow(hwnd);|4:end;|0:|57:procedure THiAsmClass.GetListViewHeader(ALVHandle: HWND);|6:const |49:  cchTextMax=148; // максимальная длина заголовка|5:var  |20:  hProcess: THandle;|21:  dwProcessID: DWORD;|18:  dwWriten: DWORD;|17:  dwCount: DWORD;|17:  pszText: PChar;|22:  svText: ShortString;|18:  HDItem: HD_ITEM;|20:  pHDItem: ^HD_ITEM;|29:  i, j, nTextLength: Integer;|17:  lvHeader: HWND;|14:  stmp:string;|5:begin|0:|38:  // Получаем хендл заголовка ListView|44:  lvHeader := ListView_GetHeader(ALVHandle);|0:|35:  // Получаем количество заголовков|43:  dwCount := Header_GetItemCount(lvHeader);|27:  if dwCount = 0 then Exit;|0:|25:  // Получаем ID процесса|19:  dwProcessID := 0;|51:  GetWindowThreadProcessId(lvHeader, @dwProcessID);|0:|25:  if dwProcessID = 0 then|28:  ExitProcess(GetLastError);|0:|22:  // Открываем процесс|16:  hProcess := 0;|65:  hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, dwProcessID);|22:  if hProcess = 0 then|28:  ExitProcess(GetLastError);|0:|48:  // Выделяем в нем память под текстовый буффер |54:  pszText := VirtualAllocEx(hProcess, nil, cchTextMax,|72:                            MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);|48:  // Выделяем в нем память под структуру  HDITEM|59:  pHDItem := VirtualAllocEx(hProcess, nil, SizeOf(HD_ITEM),|72:                            MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);|0:|24:  // Заполняем структуру|39:  ZeroMemory(@HDItem, SizeOf(HD_ITEM));|26:  HDItem.mask := HDI_TEXT;|28:  HDItem.pszText := pszText;|34:  HDItem.cchTextMax := cchTextMax;|0:|45:  // Заполняем информацию о каждом заголовке.|30:  for i := 0 to dwCount - 1 do|7:  begin|0:|41:    // Пишем в память удалённого процесса|57:    if not WriteProcessMemory(hProcess, pHDItem, @HDItem,|57:                    SizeOf(HD_ITEM), dwWriten) then Exit;|0:|30:    // Получаем итем заголовка|60:    SendMessage(lvHeader, HDM_GETITEM, i, Longint(pHDItem));|0:|23:    // Читаем заголовки|36:    ZeroMemory(@svText, cchTextMax);|66:    if not ReadProcessMemory(hProcess, HDItem.pszText, @svText[1],|54:                      cchTextMax, dwWriten) then Exit;|22:                      |30:    // Выодим их из переменной|44:    _hi_onEvent(onHeader,PChar(@svText[1]));|6:  end;|0:|34:  // Освобождаем выделенную память|51:  VirtualFreeEx(hProcess, pszText, 0, MEM_RELEASE);|51:  VirtualFreeEx(hProcess, pHDItem, 0, MEM_RELEASE);|0:|33:  // Закрываем описатель процесса|24:  CloseHandle(hProcess);|4:end;|0:|0:|54:procedure THiAsmClass.GetListViewRow(ALVHandle: HWND);|5:const|17:  cchTextMax=255;|3:var|20:  hProcess: THandle;|21:  dwProcessID: DWORD;|18:  dwWriten: DWORD;|32:  LVItemCount, dwCount: Integer;|29:  i, j, nTextLength: Integer;|20:  pLVItem: ^LV_ITEM;|18:  LVItem: LV_ITEM;|17:  pszText: PChar;|22:  svText: ShortString;|14:  sTmp:string;|17:  lvHeader: HWND;|5:begin|29:  if ALVHandle = 0 then Exit;|30:  // Получаем количество строк|52:  LVItemCount := ListView_GetItemCount(ALVHandle);  |38:  // Получаем хендл заголовка ListView|44:  lvHeader := ListView_GetHeader(ALVHandle);|35:  // Получаем количество заголовков|44:  dwCount := Header_GetItemCount(lvHeader); |2:  |62:  // Получаем ID процесса, которому принадлежит найденное окно|19:  dwProcessID := 0;|52:  GetWindowThreadProcessId(ALVHandle, @dwProcessID);|24: if dwProcessID = 0 then|28:  ExitProcess(GetLastError);|22:  // Открываем процесс|16:  hProcess := 0;|65:  hProcess := OpenProcess(PROCESS_ALL_ACCESS, True, dwProcessID);|22:  if hProcess = 0 then|28:  ExitProcess(GetLastError);|47:  // Выделяем в нем память под текстовый буффер|54:  pszText := VirtualAllocEx(hProcess, nil, cchTextMax,|72:                            MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);|47:  // Выделяем в нем память под структуру LVITEM|59:  pLVItem := VirtualAllocEx(hProcess, nil, SizeOf(LV_ITEM),|81:                                     MEM_COMMIT or MEM_TOP_DOWN, PAGE_READWRITE);|0:|24:  // Заполняем структуру|39:  ZeroMemory(@LVItem, SizeOf(LV_ITEM));|27:  LVItem.mask := LVIF_TEXT;|28:  LVItem.pszText := pszText;|34:  LVItem.cchTextMax := cchTextMax;|0:|21:  // Считываем строки|34:  for i := 0 to LVItemCount - 1 do|7:  begin|25:    LVItem.iSubItem := 0;|44:    // Пишем ее в память удаленного процесса|57:    if not WriteProcessMemory(hProcess, pLVItem, @LVItem,|54:                 SizeOf(LV_ITEM), dwWriten) then Exit;|58:    nTextLength := SendMessage(ALVHandle, LVM_GETITEMTEXT,|52:                               i, Integer(pLVItem));|23:    // Читаем результат|36:    ZeroMemory(@svText, cchTextMax);|59:    ReadProcessMemory(hProcess, LVItem.pszText, @svText[1],|46:                       nTextLength, dwWriten);|4:    |35:    sTmp := '';                    |42:    sTmp := PChar(@svText[1]);            |0:|22:   //Считываем столбцы|31:   for j := 1 to dwCount - 1 do|9:    begin|27:      LVItem.iSubItem := j;|46:      // Пишем ее в память удаленного процесса|59:      if not WriteProcessMemory(hProcess, pLVItem, @LVItem,|69:                                SizeOf(LV_ITEM), dwWriten) then Exit;|60:      nTextLength := SendMessage(ALVHandle, LVM_GETITEMTEXT,|54:                                 i, Integer(pLVItem));|25:      // Читаем результат|38:      ZeroMemory(@svText, cchTextMax);|49:      ReadProcessMemory(hProcess, LVItem.pszText,|59:                        @svText[1], nTextLength, dwWriten);|26:      // добавляем столбцы|45:      sTmp := sTmp + ';' + PChar(@svText[1]);|8:    end;|29:    _hi_onEvent(onRow, sTmp);|6:  end;|0:|40:  // Освобождаем ранее выделенную память|51:  VirtualFreeEx(hProcess, pszText, 0, MEM_RELEASE);|51:  VirtualFreeEx(hProcess, pLVItem, 0, MEM_RELEASE);|33:  // Закрываем описатель процесса|24:  CloseHandle(hProcess);|4:end;|0:|4:end.|
 link(onHeader,11637466:doAdd,[(828,230)(828,216)])
 link(onRow,11637466:doAddColumn,[])
 link(inHandle,10882181:Var,[(706,191)(600,191)(600,230)(538,230)])
}
Add(StringTable,11637466,924,210)
{
 Left=6
 Top=111
 Width=315
 Height=180
 Point(doAddColumn)
}
Add(InlineCode,9129846,343,196)
{
 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.|
 link(onChildHandle,7491927:doAdd,[])
}
Add(ListBox,7491927,406,196)
{
 Left=405
 Top=270
 DataType=1
 link(onClick,10882181:doValue,[])
}