Kontextmenü einer anderen Anwendung aufrufen

[nezumi]

Nabend allerseits,

In einem Programm erscheint ein Kontextmenü, wenn man innerhalb eines bestimmten Fensters im Programm rechts klickt. Dann kann man verschiedenes auswählen, unter anderem "alles markieren".

Dies möchte ich gerne durch ein Delphi-Programm erledigen lassen. Kann mir jemand einen Tipp geben, wie man das macht?

(Wie man das andere Programm aufruft usw, weiß ich. Es geht mir nur darum, wie man auf das Kontextmenü des Programms zugreift und dort was auswählt)

Gruß,

[mkinzler]

Sende dem Fenster doch nen Rechtsklick.

[nezumi]

Hallo mkinzler,

danke für die schnelle Antwort. Hört sich jetzt blöd an, aber wie sende ich dem Fenster ein Rechtsklick?

Was mir aber noch schleierhafter ist: Wie kann ich dann aus dem Kontextmenü etwas auswählen?

Gruß,

[DocE]

N'Abend nezumi,

wenn es z.B. um sowas wie "Alles markieren" geht, würde ich den Tastaturbefehl STRG+A senden (ist einfacher)...

Oder geht es Dir darum, wie das allgemein geht?

Grüsse
...Doc

[nezumi]

Hallo DocE,

Gute Idee, wenn ich es anders nicht hinbekomme, werde ich es so versuchen. Das Problem ist nur, dass mir mit Strg+A viel zu viel markiert wird. Wenn ich rechts klicke und dann "alles markieren" auswähle, markiert er mir genau das was ich haben will.

(Außerdem würde ich auch gerne mal kapieren, wie das grundsätzlich geht...)

Gruß,

[mkinzler]

Gibt es für "Alles markieren" im Kontextmenü auch einen Shortcut?

[nezumi]

Zitat:

Zitat von mkinzler

Gibt es für "Alles markieren" im Kontextmenü auch einen Shortcut?

Nein, leider nicht... :(

[nezumi]

Hi all,

da das scheinbar schwierig ist mit dem Kontextmenü (habs die halbe Nacht erfolglos versucht), wollte ich es so machen, dass einfach alles markiert wird. Aber auch das klappt nicht.

Um dem Fehler auf den Grund zu gehen, habe ich ein einfaches Prog geschrieben, welches in ein geöffnetes Notepad die Buchstaben "ABC" reinschreibt und dann alles markiert.

Delphi-Quellcode:

 
procedure TForm1.Button6Click(Sender: TObject);
var
  wnd, wnd2 : HWND;
  i   : Integer;
  s   : string;
begin
  wnd := FindWindow('notepad',nil);
  if wnd <> 0 then begin
    wnd2 := FindWindowEx(wnd,0,'Edit',nil);
    s := 'ABC';
    For i := 1 to Length(s) do begin
    SendMessage(wnd2, WM_CHAR, Word(s[i]), 0) end;
    BringWindowToTop(wnd);

    SendMessage(wnd2, WM_KEYDOWN, VK_CONTROL , 0);
    SendMessage(wnd2, WM_KEYDOWN, Ord('A'), 0);
    SendMessage(wnd2, WM_KEYUP, Ord('A'), 0);
    SendMessage(wnd2, WM_KEYUP, VK_CONTROL, 0);

  end;
end;

Das Reinschreiben der Buchstaben klappt, aber markiert wird nichts. Was mach ich falsch? Wie sendet man ein "Strg+A" an eine andere Anwendung?

Gruß,

[EWeiss]

Zitat:

Zitat von nezumi

Hi all,

da das scheinbar schwierig ist mit dem Kontextmenü (habs die halbe Nacht erfolglos versucht), wollte ich es so machen, dass einfach alles markiert wird. Aber auch das klappt nicht.

Um dem Fehler auf den Grund zu gehen, habe ich ein einfaches Prog geschrieben, welches in ein geöffnetes Notepad die Buchstaben "ABC" reinschreibt und dann alles markiert.

Delphi-Quellcode:

 
procedure TForm1.Button6Click(Sender: TObject);
var
  wnd, wnd2 : HWND;
  i   : Integer;
  s   : string;
begin
  wnd := FindWindow('notepad',nil);
  if wnd <> 0 then begin
    wnd2 := FindWindowEx(wnd,0,'Edit',nil);
    s := 'ABC';
    For i := 1 to Length(s) do begin
    SendMessage(wnd2, WM_CHAR, Word(s[i]), 0) end;
    BringWindowToTop(wnd);

    SendMessage(wnd2, WM_KEYDOWN, VK_CONTROL , 0);
    SendMessage(wnd2, WM_KEYDOWN, Ord('A'), 0);
    SendMessage(wnd2, WM_KEYUP, Ord('A'), 0);
    SendMessage(wnd2, WM_KEYUP, VK_CONTROL, 0);

  end;
end;

Das Reinschreiben der Buchstaben klappt, aber markiert wird nichts. Was mach ich falsch? Wie sendet man ein "Strg+A" an eine andere Anwendung?

Gruß,

1. Du kannst dir die Schleife sparen wenn du die API CopyMemory verwendest und den String komplett sendest.
2. Du mußt die Applikation erst aktivieren
3. Dann mit Sendkeys (STRG+A) den ganzen Text auswählen.

gruß

[nezumi]

Hallo Emil,

vielen Dank für Deine Antwort. Leider versteh ich nur Bahnhof...

Könntest Du das bitte etwas genauer beschreiben oder vielleicht ein Code-Beispiel schreiben (insbes. zu Punkt 2 und 3)? Würde mir sehr helfen...

Thanx,