请问是哪种网格,是listview 还是dbgrid之类的网格呢,,:??????

看看下面这个东东是不是你要的:::

如何抓取外部的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.