function ListView_ClickItem(hWnd: HWND; index: Integer): Bool;
  var
    hProcess: Cardinal;
    pid: Cardinal;
    pItem: PLVItem;
    LocalItem: TLVItem;
    iReadOrWriteCount: Cardinal;
    pNM: PNMHDR;
    LocalNM: NMHDR;
  begin
    GetWindowThreadProcessId(hWnd, pid);//取进程句柄
    hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, pid);

    {修改显示状态}
    ZeroMemory(@LocalItem, SizeOf(LocalItem));
    LocalItem.state := LVIS_SELECTED or LVIS_FOCUSED or LVIS_ACTIVATING;
    LocalItem.stateMask := LVIS_SELECTED;
    pItem := VirtualAllocEx(hProcess, nil, 1024{Sizeof(TLVItem)}, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
    WriteProcessMemory(hProcess, pItem, @LocalItem, SizeOf(TLVItem), iReadOrWriteCount);
    Result := Bool(SendMessage(hWnd, LVM_SETITEMSTATE, index, Integer(pItem)));
    if not Result then Exit;

    {单击}
    ZeroMemory(@LocalNM, SizeOf(LocalNM));
    LocalNM.hwndFrom := hWnd;
    LocalNM.idFrom := GetDlgCtrlID(hWnd);
    LocalNM.code := NM_CLICK;//NM_DBLCLK;
    pNM := VirtualAllocEx(hProcess, nil, 1024{Sizeof(NMHDR)}, MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE);
    WriteProcessMemory(hProcess, pNM, @LocalNM, SizeOf(NMHDR), iReadOrWriteCount);
    try
      PostMessage(GetParent(hWnd), WM_NOTIFY, LocalNM.idFrom, Integer(pNM));
    except
      Result := Bool(False);
    end;

    VirtualFreeEx(hProcess, pNM, 0, MEM_RELEASE);
    VirtualFreeEx(hProcess, pItem, 0, MEM_RELEASE);
    CloseHandle(hProcess);
  end;

[课程]FART 脱壳王！加量不加价！FART作者讲授！