请教高手，得到另一个程序的LISTVIEW控件的句柄后，如何读出其中内容？ 300酬谢！！ (300分)

mylwf · 2004-04-28

如果有简单的小例子最好，谢谢！：）

sspeak · 2004-04-30

用SendMessage向这个句柄发LVM_XXX系列消息来获取所要的信息。 以下两个已经可以满足你的要求。 LVM_GETITEMCOUNT，获得行数。 LVM_GETITEM，获得某行，某列的文字/状态等。 具体请参照MSDN，过程比较简单。

mylwf · 2004-04-30

非常感谢！！我去试试，如果成功，马上给您加分！：）

amli · 2004-04-30

mylwf · 2004-04-30

以前没有接触过类似问题，现在已经可以取到 ITEMCOUNT 了，可里面的文字还是取不出来。 非常感谢楼上的大侠，可小弟实在功力不够，移植不到LISTVIEW上啊 哪位大侠能写一个简单的例子，小弟另开帖300分奉上，谢谢！

paulorwys · 2004-04-30

给一个建议吧：参考有关listview的消息看看，MSDN里头很详细， 此外用SendMessage发送就可以了，而不建议用PostMessage发送，

sspeak · 2004-05-01

uses ...,CommCtrl; var item :TLVItem; buffer :array[0..300] of char; sText :string; begin with item do begin mask:=LVIF_TEXT; iItem:=0; //第0行 iSubItem:=0; //第0列 pszText:=pchar(@buffer); cchTextMax:=300; end; if 0<>SendMessage(hWnd,LVM_GETITEM,0,LPARAM(@item)) then sText:=item.pszText;

掷月有声 · 2004-05-01

直接用API函数GetWindowsText就可以了 GetWindowsText(listhandle:hwnd;listtext

ansichar;cch:dword); listhandle为句柄，listtext为字符缓冲区变量，cch为缓冲区大小，调用后，listtext为LISTVIEW中的内容；

mylwf · 2004-05-01

谢谢楼上的朋友，可这些我怎么试了很多遍，都不能成功啊？郁闷

独帅 · 2004-05-01

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2471980

xianjun · 2004-05-01

肯定是使用LVM_GETITEM等LISTVIEW的消息来操作,但由于你操作的是不同进程,所以不可能直接取得文本等信息,这就涉及到进程间通信的问题了,可以使用HOOK加内存映射文件,还可以直接读写进程内存等方法实现,HOOK加内存映射文件的代码比较复杂,还要用到DLL,下午帮你写个用直接读写进程内存的API来实现的代码吧.

skadon · 2004-05-01

俺有个例子，网上下载的，要不？

xianjun · 2004-05-01

楼上的，如果有的话就贴出来吧，我也就不去写了。  [

]

skadon · 2004-05-01

http://218.19.172.170/music/GrabListView.zip

xianjun · 2004-05-01

楼上的好象搞错了吧？ 花了近50分钟，搞了一下： {***************************************************************  *  * Project Name: LittleCode -- uListViewInfo  * Typist:       XJG(xianjun@163.net)  * Purpose:      使用读取进程内存的方式取得ListView的信息  * Comment Time: 2004-05-01 14:44:42  * History:      Create by xjg. 2004-05-01 14:44:42  *  ****************************************************************} unit uListViewInfo; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, uMDIAncestor, StdCtrls; type   TForm3 = class(TFormMDIAncestor)     Memo1: TMemo;     Edit1: TEdit;     Button1: TButton;     Label1: TLabel;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; implementation {$R *.dfm} uses   CommCtrl; const   Max_CaptionWidth = 512; function GetListViewItemText(const AHwnd, AProcess: THandle; const pMemory: Pointer): string; var   AItemCount, I, J, K: Integer;   S, ResName: string;   lvColumn: TLVColumn;   lvItem: TLVItem;   ASuccess: Boolean;   lpNumberOfBytesWritten: Cardinal; begin   J := 0;   repeat     FillChar(lvColumn, SizeOf(lvColumn), 0);     lvColumn.Mask := LVCF_TEXT;     lvColumn.pszText := Pointer(Cardinal(pMemory) + SizeOf(lvColumn));     lvColumn.cchTextMax := Max_CaptionWidth;     WriteProcessMemory(AProcess, pMemory, @lvColumn, SizeOf(lvColumn), lpNumberOfBytesWritten);     ASuccess := Boolean(SendMessage(AHwnd, LVM_GETCOLUMN, J, LPARAM(pMemory)));     ReadProcessMemory(AProcess, pMemory, @lvColumn, SizeOf(TLVColumn), lpNumberOfBytesWritten);     SetLength(S, Max_CaptionWidth);     FillChar(Pointer(S)^, Max_CaptionWidth, 0);     ReadProcessMemory(AProcess, lvColumn.pszText, Pointer(S), lvColumn.cchTextMax, lpNumberOfBytesWritten);     if ASuccess and (StrLen(PChar(S)) > 0) then       if J = 0 then         ResName := PChar(S)       else         ResName := ResName + #09 + PChar(S);     Inc(J);   until not ASuccess;   Dec(J);   Result := ResName;   AItemCount := ListView_GetItemCount(AHwnd);   for I := 0 to AItemCount - 1 do   begin     for K := 0 to J - 1 do     begin       FillChar(lvItem, SizeOf(lvItem), 0);       lvItem.Mask := LVCF_TEXT;       lvItem.iSubItem := K;       lvItem.cchTextMax := Max_CaptionWidth;       lvItem.pszText := Pointer(Cardinal(pMemory) + SizeOf(lvColumn));       WriteProcessMemory(AProcess, pMemory, @lvItem, SizeOf(lvItem), lpNumberOfBytesWritten);       SendMessage(AHwnd, LVM_GETITEMTEXT, I, LPARAM(pMemory));       ReadProcessMemory(AProcess, pMemory, @lvItem, SizeOf(lvItem), lpNumberOfBytesWritten);       SetLength(S, Max_CaptionWidth);       FillChar(Pointer(S)^, Max_CaptionWidth, 0);       ReadProcessMemory(AProcess, lvItem.pszText, Pointer(S), lvItem.cchTextMax, lpNumberOfBytesWritten);       if K = 0 then         ResName := PChar(S)       else         ResName := ResName + #09 + PChar(S);     end;     Result := Result + #13#10 + ResName;   end; end; procedure TForm3.Button1Click(Sender: TObject); var   hProcessID: DWORD;   hListView, hProcess: THandle;   pMemory: Pointer; begin   hListView := StrToIntDef(Edit1.Text, 0);   GetWindowThreadProcessId(hListView, @hProcessID);   hProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or     PROCESS_VM_WRITE, False, hProcessID);   if hProcess = 0 then     RaiseLastOSError;   try     pMemory := VirtualAllocEx(hProcess, nil, 4096, MEM_RESERVE or MEM_COMMIT,       PAGE_READWRITE);     if pMemory = nil then       RaiseLastOSError;     try       Memo1.Text := GetListViewItemText(hListView, hProcess, pMemory);     finally       VirtualFreeEx(hProcess, pMemory, 0, MEM_RELEASE);     end;   finally     CloseHandle(hProcess);   end; end; end.

xianjun · 2004-05-01

skadon的代码也可以实现这功能，不过比较复杂一些了~ 原理是一样的。 刚刚只是看了一下压缩包里的文件名，以为skadon贴错代码了，不好意思[

]

mylwf · 2004-05-02

谢谢大家！！ 我另开贴答谢 XIANJUN

请教高手，得到另一个程序的LISTVIEW控件的句柄后，如何读出其中内容？ 300酬谢！！ (300分)

mylwf

Unregistered / Unconfirmed

sspeak

Unregistered / Unconfirmed

mylwf

Unregistered / Unconfirmed

amli

Unregistered / Unconfirmed

mylwf

Unregistered / Unconfirmed

paulorwys

Unregistered / Unconfirmed

sspeak

Unregistered / Unconfirmed

掷月有声

Unregistered / Unconfirmed

mylwf

Unregistered / Unconfirmed

独帅

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

skadon

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

skadon

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

xianjun

Unregistered / Unconfirmed

mylwf

Unregistered / Unconfirmed

Similar threads