如何抓取外部的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.
　
附件&gt;&gt;&gt;&gt; <a href="GrabListView.zip" target="_blank">GrabListView.zip</a>