unit GetListViewDatas;
interface
uses
Windows, Messages, SysUtils, CommCtrl, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TFormGetListViewDatas = class(TForm)
mmoText: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMHOTKEY(var Msg: TWMHOTKEY); message WM_HOTKEY;
{ Private declarations }
public
{ Public declarations }
end;
var
FormGetListViewDatas: TFormGetListViewDatas;
implementation
{$R *.dfm}
function ListViewColumnCount(mHandle: THandle): Integer;
begin
Result := Header_GetItemCount(ListView_GetHeader(mHandle));
end;
function GetListViewSelectText(mHandle: THandle;var mStrings: string): Boolean;
var
vColumnCount: Integer;
I, J: Integer;
vBuffer: array[0..255] of Char;
vProcessId: DWORD;
vProcess: THandle;
vPointer: Pointer;
vNumberOfBytesRead: Cardinal;
vItem: TLVItem;
begin
Result := False;
I := ListView_GetNextItem(mHandle, -1, LVNI_SELECTED);
if I = -1 then
Exit;
vColumnCount := ListViewColumnCount(mHandle);
if vColumnCount <= 0 then Exit;
GetWindowThreadProcessId(mHandle, @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
mStrings := '';
for J := 0 to vColumnCount - 1 do
begin
with vItem do
begin
mask := LVIF_TEXT;
iItem := I;
iSubItem := J;
cchTextMax := SizeOf(vBuffer);
pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem));
end;
WriteProcessMemory(vProcess, vPointer, @vItem,
SizeOf(TLVItem), vNumberOfBytesRead);
SendMessage(mHandle, LVM_GETITEM, I, lparam(vPointer));
ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)),
@vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead);
mStrings := mStrings + #9 + vBuffer;
end;
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);
CloseHandle(vProcess);
end;
Result := True;
end;
function GetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;
var
vColumnCount: Integer;
vItemCount: Integer;
I, J: Integer;
vBuffer: array[0..255] of Char;
vProcessId: DWORD;
vProcess: THandle;
vPointer: Pointer;
vNumberOfBytesRead: Cardinal;
S: string;
vItem: TLVItem;
begin
Result := False;
if not Assigned(mStrings) then Exit;
vColumnCount := ListViewColumnCount(mHandle);
if vColumnCount <= 0 then Exit;
vItemCount := ListView_GetItemCount(mHandle);
GetWindowThreadProcessId(mHandle, @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);
mStrings.BeginUpdate;
try
mStrings.Clear;
for I := 0 to vItemCount - 1 do begin
S := '';
for J := 0 to vColumnCount - 1 do begin
with vItem do begin
mask := LVIF_TEXT;
iItem := I;
iSubItem := J;
cchTextMax := SizeOf(vBuffer);
pszText := Pointer(Cardinal(vPointer) + SizeOf(TLVItem));
end;
WriteProcessMemory(vProcess, vPointer, @vItem,
SizeOf(TLVItem), vNumberOfBytesRead);
SendMessage(mHandle, LVM_GETITEM, I, lparam(vPointer));
ReadProcessMemory(vProcess, Pointer(Cardinal(vPointer) + SizeOf(TLVItem)),
@vBuffer[0], SizeOf(vBuffer), vNumberOfBytesRead);
S := S + #9 + vBuffer;
end;
Delete(S, 1, 1);
mStrings.Add(S);
end;
finally
VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);
CloseHandle(vProcess);
mStrings.EndUpdate;
end;
Result := True;
end;
procedure TFormGetListViewDatas.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 1, MOD_WIN, VK_F3);
end;
procedure TFormGetListViewDatas.WMHOTKEY(var Msg: TWMHOTKEY);
begin
case Msg.HotKey of
1:
GetListViewText(
WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)),
mmoText.Lines);
end;
end;
procedure TFormGetListViewDatas.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, 1);
end;
end.
分享到:
相关推荐
C#通过WIN32API获取外部程序sysListview的值和TreeView的值.pdf
上次下载的Using ListView control under Win32 API在vc 2008转换失败,我在此基础上修改了一下可以在VC2008上运行!
win32api读取其他软件listview控件的内容
listview control的纯win32 api程序,能够运行对list的基本添加item等
win32 sdk下listview控件的使用 listview控件使用例子 listview右键菜单例子
《跟我一起玩Win32开发》系列博客文章第16篇,主要扩展了前一个实例,增加了List View控件的多视图切换。
《跟我一起玩Win32开发》相关博文第15篇,ListView控件的一个实例源代码(Report视图)。
win32汇编语言写的listview排序列子
本文将显示/教导如何在Win32 API(Visual C ++ 6.0)下使用ListView。
API listview高级操作源码!
获取c# ListView CheckBox 索引值
Listview 的使用,用win32 api写的,希望对初学者有用吧。
ListView的API效果演示 ListView的API效果演示
点击listView的某一行的Buttoon需要改变当前行的TextView的值
android开发中ListView中改变EditText值的实现,值得学习。
本资源是练习连接高德API的操作,学习如何显示高德API地图,以及进行标点Marker,并有点击功能,进行跳转,界面用ListView显示。
用WIN32编写的自定义LISTVIEW控件
1、ListView item中加入checkbox后onListItemClick 事件无法触发。 原因:checkbox的优先级高于ListItem于是屏蔽了ListItem的单击事件。 解决方案:设置checkbox的android:focusable="false" 2、选择其中的...
在ListView中item中的editext中输入数据,可以动态的取得