delphi7如何给外部SysListView32添加一行

[hbszlhj]

外部程序使用的是SysListView32，有三列，读取没有问题，我现在想增加几行，如何做到谢谢！

[蓝色光芒]

function ListView_InsertItem(hWnd: HWND; const pItem: TLVItem): Integer;
begin
  Result := Integer(SendMessage(hWnd, LVM_INSERTITEM, 0, LPARAM(@pItem)));
end;

参考这个，增加新行，ListView_SetItemCount...那几个添加列（如果需要），注意pItem: TLVItem数据必须在目标进程中，可以用VirtualQueryEx在目标进程中申请内存，并写入TLVItem结构体，然后把这个内存地址的指针当然LPARAM传递给ListView的句柄，就可以添加了。 这些函数都在系统自带的单元 CommCtrl.pas中

[santiaodahan]

以下示例需传入参数：ListView的句柄，要插入行的索引和显示的文本。LVM_INSERTITEM要求iSubItem为0，不能用来添加子项。设置子项请使用LVM_SETITEM消息。

procedure InsertListViewItem(hwdLV:HWND; index:integer; str:string);    //添加数据
var
     pid:Cardinal;
     hProc:Cardinal;
     ptLV:PLVItem;
     tLV:TLVItem;
     ptItem:Pchar;
     numByte:Cardinal;
     strItem:array[0..255] of Char;
begin
     if hwdLV = 0 then
     Exit;
     GetWindowThreadProcessId(hwdLV, pid);
     hProc:=OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE or PROCESS_QUERY_INFORMATION, FALSE, pid);
     if hProc = 0 then
     Exit;
     ptLV:=VirtualAllocEx(hProc, nil,  sizeof(TLVItem), MEM_COMMIT, PAGE_READWRITE);
     ptItem:=VirtualAllocEx(hProc, nil, sizeof(strItem), MEM_COMMIT, PAGE_READWRITE);
     ZeroMemory(@tLV, sizeof(TLVItem));
     tLV.mask:=LVIF_TEXT;
     tLV.iItem:=index;
     tLV.iSubItem:=0;
     Move(str[1],strItem[0],Length(str)+1);
     tLV.pszText:=ptItem;
     WriteProcessMemory(hProc, ptItem, @strItem, sizeof(strItem), numByte);
     WriteProcessMemory(hProc, ptLV, @tLV, sizeof(TLVItem), numByte);
     SendMessage(hwdLV, LVM_INSERTITEM, 0, Longint(ptLV));
     VirtualFreeEx(hProc, ptLV, 0, MEM_RELEASE);
     VirtualFreeEx(hProc, ptItem, 0, MEM_RELEASE);
     CloseHandle(hProc);
end;

[hbszlhj]

谢谢回复，我试试！