跨进程 获取 syslistview32 内容

from zswang

http://bbs.csdn.net/topics/100073407

(*//
标题:获取其他进程中ListView的文本
 说明:Window2000+Delphi6调试通过
 设计:Zswang
支持:wjhu111@21cn.com
日期:2004-03-25
 //*)

 uses CommCtrl;

 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[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; { GetListViewText }

 //Example
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   RegisterHotKey(Handle, 1, MOD_WIN, VK_F2);
 end;

 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   UnRegisterHotKey(Handle, 1);
 end;

 procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);
 begin
   case Msg.HotKey of
     1:
       GetListViewText(
         WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)),
         MemoText.Lines);
   end;
 end;