如何抓取外部的ListView？

Q：我想抓取外部的程序的Listview，并在自己的程序中写出来，怎么做？我用ListView_GetItem进行获取，可是不能获取数据，而且出现AV错误？

A：原因在于，ListView_GetItem读取和写入数据的时候，它必须访问本进程内的内存才会正常工作，如果不是本进程内地数据，就会发生AV错误。因此我们必须用特殊的方式分配内存。附件中的例子，就很好的演示了如何或取其他程序中的ListView。

运行程序，用鼠标指向一个ListView控件，然后按F12，回到程序，你就会发现，ListView已经被抓下来了。

zswang:

获取不同进程ListView的内容～～

(*//

标题:获取不同进程ListView的内容

说明:适用于WindowsNT

日期:2003-02-27

设计:Zswang

//*)

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

MemoText: TMemo;

EditCount: TEdit;

LabelNote: TLabel;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

{ Private declarations }

procedure WMHOTKEY(var Msg: TWMHOTKEY); message WM_HOTKEY;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses CommCtrl;

function VirtualAllocEx(hProcess: Cardinal; lpAddress: Pointer;

dwSize, flAllocationType, flProtect: Cardinal): Pointer; stdcall;

external kernel32 name ''VirtualAllocEx'';

function VirtualFreeEx(hProcess: Cardinal; lpAddress: Pointer;

dwSize, dwFreeType: Cardinal): Boolean; stdcall;

external kernel32 name ''VirtualFreeEx'';

　

const cHotKeyWinF2 = 1;

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.Title := ''获取ListView内容 1.0'';

Caption := Application.Title;

RegisterHotKey(Handle, cHotKeyWinF2, MOD_WIN, VK_F2);

end;

procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);

var

I, J: Integer;

S: string;

vItem: TLVItem;

vCount: Integer;

vHandle: THandle;

vBuffer: array[0..255] of Char;

pBuffer: PChar;

vProcess: THandle;

vProcessId: DWORD;

vPointer: Pointer;

vNumberOfBytesRead: Cardinal;

begin

case Msg.HotKey of

cHotKeyWinF2: begin

MemoText.Clear;

FillChar(vBuffer, 256, 0);

vHandle := WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y));

vCount := ListView_GetItemCount(vHandle);

if vCount = 0 then Exit;

GetWindowThreadProcessId(vHandle, @vProcessId);

vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or

PROCESS_VM_WRITE, False, vProcessId);

vPointer := VirtualAllocEx(vProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT,

PAGE_READWRITE);

try

for I := 0 to vCount - 1 do begin

S := '''';

for J := 0 to StrToIntDef(EditCount.Text, 0) - 1 do begin

with vItem do begin

mask := LVIF_TEXT;

iItem := I;

iSubItem := J;

cchTextMax := 255;

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

end;

WriteProcessMemory(vProcess, vPointer, @vItem,

SizeOf(TLVItem), vNumberOfBytesRead);

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

pBuffer := vBuffer;

ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)),

pBuffer, DWORD(256), vNumberOfBytesRead);

S := S + #9 + vBuffer;

end;

Delete(S, 1, 1);

MemoText.Lines.Add(S);

end;

finally

VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);

CloseHandle(vProcess);

end;

end;

end;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

UnRegisterHotKey(Handle, cHotKeyWinF2);

end;

end.