如何获取其它进程mgGridCtrl列表内容

hying95 发表于 2017-5-31 22:44

跨进程获取其他程序mgGridCtrl内容
代码如下:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, CommCtrl, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
mmo1: TMemo;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
tmpl: TStringList;
implementation

{$R *.dfm}
//以下为取其它进程数据
function ListViewColumnCount(mHandle: THandle): Integer;
begin
Result := Header_GetItemCount(ListView_GetHeader(mHandle));

end; { ListViewColumnCount }

function GetListViewText(mHandle: THandle; mStrings: TStrings): Boolean;
var
vColumnCount: Integer;
vItemCount: Integer;
I, J: Integer;
vBuffer: array 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, SizeOf(vBuffer), vNumberOfBytesRead);
      ifvBuffer='' then
      vBuffer :='0';

   S := S + ',' + 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; { GetListViewText }

function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;
var
vItemCount: Integer;
I: Integer;
S: string;
begin
Result := False;
if not Assigned(mStrings) then Exit;
mStrings.BeginUpdate;
try
mStrings.Clear;
vItemCount := SendMessage(mHandle, LB_GETCOUNT, 0, 0);
for I := 0 to vItemCount - 1 do begin
   SetLength(S, SendMessage(mHandle, LB_GETTEXTLEN, I, 0));
   SendMessage(mHandle, LB_GETTEXT, I, Integer(@S));
   mStrings.Add(S);
end;
SetLength(S, 0);
finally
mStrings.EndUpdate;
end;
Result := True;
end; { GetListBoxText }

procedure TForm1.Timer1Timer(Sender: TObject);
var
mh,zh,ch: HWND;
s,S1: String;
WinText:array of char;

begin
mh:=FindWindow(nil,PChar('要素检查'));
if mh>0 then
zh:=FindWindowEx(mh,0,'mgGridCtrl',0);
if zh> 0 then
GetListViewText(zh,TmpL);
mmo1.Text:=tmpl.Text;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
tmpl:=TStringList.Create;
end;

end.
取不到内容

hying95 发表于 2017-5-31 22:48

程序在百度网盘

hying95 发表于 2017-5-31 22:49

http://pan.baidu.com/share/link?shareid=3221280881&uk=3120653624

hying95 发表于 2017-5-31 23:52

http://pan.baidu.com/share/link?shareid=759473486&uk=3120653624

hying95 发表于 2017-5-31 23:55

程序运行如图，

hying95 发表于 2017-5-31 23:56

用易语言写成dll文件也可以

hying95 发表于 2017-6-3 08:00

好多天沒人回复，顶到前面

页: [1]

吾爱破解 - 52pojie.cn's Archiver

如何获取其它进程mgGridCtrl列表内容