Function listview(h: hwnd): BOOL; stdcall;

ProcessId: DWORD;

Process: THandle;

vPointer: Pointer;

Buffer: array [byte] of char;

NumberOfBytesRead: Cardinal;

Item: TLVItem;

hListView:HWND;

ItemsCount,i:integer;

 

Buf : array [0..150] of char;

 

 

hListView := h;

GetClassName(hListView, buf, 150);

if buf <> 'SysListView32' then

exit;

form1.memo1.Lines.Add('list naiden');

 

GetWindowThreadProcessId(hListView, @ProcessId);

Process := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE, False, ProcessId);

 

vPointer := VirtualAllocEx(Process, nil, 4096, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);

ItemsCount := SendMessage(hListView, LVM_GETITEMCOUNT, 0, 0);

 

for i := 0 to ItemsCount do begin

  with Item do begin

  mask := LVIF_TEXT;

  iItem := i;

  iSubItem := 0;

  cchTextMax := SizeOf(Buffer);

  pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem));

  end;

  WriteProcessMemory(Process, vPointer, @Item, SizeOf(TLVItem), NumberOfBytesRead);

  SendMessage(hListView, LVM_GETITEM , I, lparam(vPointer));

  ReadProcessMemory(Process, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)), @Buffer[0], SizeOf(Buffer), NumberOfBytesRead);

 

  form1.memo1.Lines.Add(Buffer);

 

end;

VirtualFreeEx(Process, vPointer, 0, MEM_RELEASE);

CloseHandle(Process);

end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

h:HWND;

 

 

Memo1.Clear;

h:=FindWindow(nil, 'Xxx');

if h <> 0 then

EnumChildWindows(h, @listview, 0);

end;