Item in Fremder ListView doppelt anklicken

[napsterxx]

Habe das Handle einer Listview eines anderen Programms. Ich möchte nun den zweiten eintrag anklicken. Ist das möglich?

[toms]

Hallo,

Das ist nicht ganz trivial. Ich habe es mal so hingebracht:

Delphi-Quellcode:

uses
  CommCtrl, uProcessMemMgr {siehe Anhang};

function LVDblClickItemByIndex(hwndLV: HWND; ItemIndex: Word): Boolean;
// Führt einen Doppelklick (Enter) auf ein Item in einer fremden ListView aus
// hwndLV: Handle der ListView
// ItemIndex: Index des Items, angefangen bei 0
// Diese Methode funktioniert u.U nur, wenn kein anderes Item markiert ist.
const
  MaxTextLen = 1024;
var
  MemMgr: TProcessMemMgr;
  LVItem: TLVItem;
  iLVitemsCount: Integer;
  PrItem: PLVItem;
begin
  Result := False;
  MemMgr := CreateProcessMemMgrForWnd(hwndLV);
  try
    PrItem := MemMgr.AllocMem(SizeOf(TLVItem));
    iLVitemsCount := ListView_GetItemCount(hwndLV);
    if ItemIndex < iLVitemsCount then
    begin
      FillChar(LVItem, SizeOf(LVItem), 0);
      //  Item Eigenschaften setzen
      LVItem.mask := LVIF_TEXT;
      LVItem.iItem := ItemIndex;
      MemMgr.Write(LVItem, PrItem, SizeOf(TLVItem));
      if not ListView_GetItem(hwndLV, PrItem^) then Exit;
      MemMgr.Read(PrItem, LVItem, SizeOf(TLVItem));
      if ListView_GetItem(hwndLV, PrItem^) then
      begin
        //  Item "Selected" Eigenschaften setzen
        LVItem.state := LVIS_SELECTED;
        LVItem.stateMask := LVIS_SELECTED;
        //  Item markieren
        MemMgr.Write(LVItem, PrItem, SizeOf(TLVItem));
        if Boolean(SendMessage(hwndLV, LVM_SETITEMSTATE, ItemIndex, LongInt(PrItem))) then
        begin
        // Enter senden
          PostMessage(hwndLV, WM_KEYDOWN, VK_RETURN, 0);
          PostMessage(hwndLV, WM_KEYUP, VK_RETURN, 0);
        // SendMessage(hwndLV, WM_LBUTTONDBLCLK, ItemNumber, LongInt(PrItem));
          Result := True;
        end;
      end;
    end;
  finally
    MemMgr.Free;
  end;
end;

[napsterxx]

Funktioniert nicht

[toms]

Zitat:

Zitat von napsterxx

Funktioniert nicht

Betrifft es Garena?

[napsterxx]

Genau und wenn ichs bei meiner listview mache und im OnKeyPress ereignis ShowMessage habe, sodass ich weis ob Enter gedrückt wurde bekomme ich 2000 msgs und das Prog stürzt ab

[toms]

Hast du Vista?

[napsterxx]

Nein XP SP2
Zudem möchte ich ja klicken :D Nicht enter drücken

[toms_]

Sende der ListView mal ein diese Nachrichten

Delphi-Quellcode:

  xy := LPARAM(Longword(Word(90) shl 16));
  PostMessage(wndChild, WM_MOUSEMOVE, 0, xy);
  PostMessage(wndChild, WM_LBUTTONDOWN, MK_LBUTTON, xy);
  PostMessage(wndChild, WM_LBUTTONUP, 0, xy);

wobei

Delphi-Quellcode:

var
  xy : Integer;

[napsterxx]

da wird auf glaube ich ein Random Item geklickt...immer ein anderes

[toms]

Bei mir wird nur immer das 2 Item angeklickt.

[napsterxx]

Da sind ca 50 Items in der ListView. Es wird immer das dritte angeklickt von dem ausschnitt den man sieht. Scrollt man z.B. runter sodass man ab dem 6 item erst die restlichen items sieht wird das 9 item angeklickt und so

[toms]

Zitat:

Zitat von napsterxx

Da sind ca 50 Items in der ListView. Es wird immer das dritte angeklickt von dem ausschnitt den man sieht. Scrollt man z.B. runter sodass man ab dem 6 item erst die restlichen items sieht wird das 9 item angeklickt und so

Dann könnte man mal die Item Position herausfinden und als lparam übergeben.

[napsterxx]

Muss ich die X und Y Koordinaten rausfinden? Wenn ja ist ds keine besonders elegante lösung ... schließlich haben verschiedene leute verschiedene Bildschirmauflösungen

[napsterxx]

:lol: :lol:

[toms]

Zitat:

Zitat von napsterxx

Muss ich die X und Y Koordinaten rausfinden? Wenn ja ist ds keine besonders elegante lösung ... schließlich haben verschiedene leute verschiedene Bildschirmauflösungen

Ich würde mit ListView_GetItemRect() die Item Position ermitteln.
Bildschirmauflösungen spielen so keine Rolle.

[napsterxx]

OK funktioniert jetzt :D
Weist du auch wie man von der Listview sofer ich dsa handle habe alle einträge speichern kann?

[toms]

Zitat:

Zitat von napsterxx

OK funktioniert jetzt :D

Wie hast du es gemacht / Wie sieht dein Code aus?

Zitat:

Weist du auch wie man von der Listview sofer ich dsa handle habe alle einträge speichern kann?

Suche mal nach GrabListView

[napsterxx]

Finde nichts was ich verstehe. Ich möchte ja eig nur einmal alles speichern

[toms]

Zitat:

Zitat von napsterxx

Finde nichts was ich verstehe. Ich möchte ja eig nur einmal alles speichern

Schau mal hier

PS: Meine Frage hast du noch nicht beantwortet.

Zitat:

Zitat von toms

Zitat:

Zitat von napsterxx

OK funktioniert jetzt :D

Wie hast du es gemacht / Wie sieht dein Code aus?

Zitat:

Weist du auch wie man von der Listview sofer ich dsa handle habe alle einträge speichern kann?

Suche mal nach GrabListView