WindowProc einer Klasse?

[TriphunEM]

Hallo,

ich weiß nicht wie ich den folgenden Code ergänzen soll um die Windows-Botschaften einer Klasse einer Komponente abzufangen!
Der Code funktioniert wenn ich die eigentliche Komponente nehme (siehe Kommentare). Da aber die Klasse scheinbar ein eigenes Fensterhandle hat, komm ich so nicht ran.

Die Klasse heißt TTBToolbar !

Delphi-Quellcode:

private
  OldProgressWndProc: TWndMethod;
  procedure ProgressWndProc(var Msg: TMessage);
...
procedure TForm1.FormCreate(Sender: TObject);
var Index: integer;
begin
  // OldProgressWndProc:=TBToolbar1.WindowProc;
  // TBToolbar1.WindowProc:=ProgressWndProc;
  OldProgressWndProc:= ???
  ???:=ProgressWndProc;
end;

procedure TForm1.ProgressWndProc(var Msg: TMessage);
begin
  if msg.Msg = WM_RBUTTONDOWN then
  begin
    // Hier soll meine Aktion ausgeführt werden.
  end;
  OldProgressWndProc (Msg);
end;

Vielen Dank im voraus...

[retnyg]

SetWindowLong

democode siehe Size Grip // suche scheint nicht zu funktionieren: http://www.delphipraxis.net/internal...ca28132447e449

btw: progress heisst "fortschritt"

[TriphunEM]

von SetWindowLong hab ich auch schon gehört, aber wie ich das anwenden soll hab ich keine ahnung!

Was ich nicht verstehe, der Code von Size Grip was hat das mit meinem Problem zu tun. ich finde da garnix was mir weiterhilft!

?

thx

[retnyg]

mit setwindowlong kannste die adresse der wndproc überschreiben, also deinen eignen handler aufrufen

[TriphunEM]

puuhh, seh aber noch ne wie das geht. könntest du das oben in meinem code irgendwie verdeutlichen????

[retnyg]

Delphi-Quellcode:

// code ist aus flocke's sizegrip unit ausgeliehen, thx nochma :P
type
  TWndProc = function (hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

var
  OldWndProc: TWndProc;

function NewWndProc(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;

  function CallOld: LRESULT;
  begin
    Result := CallWindowProc(@OldWndProc, hWnd, Msg, wParam, lParam);
  end;

begin
  // Result := DefWindowProc(hWnd, Msg, wParam, lParam); // standardWndProc aufrufen

  case Msg of
    WM_DESTROY: begin
      SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@OldWndProc));
      result := callold;
    end;

    WM_PAINT: Begin
      // dein code ^.^
    end;

    else
      Result := CallOld;
  end;
end;

procedure RemoveMsgHook(hWnd: HWND);
begin
  if @OldWndProc <> nil then
    SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@OldWndProc));
end;

procedure SetMsgHook(hWnd: HWND);
begin
  RemoveMsgHook(hWnd);
  OldWndProc := TWndProc(Pointer(GetWindowLong(hWnd, GWL_WNDPROC)));
  SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@NewWndProc));
end;

[NeoXan]

Ich habe 2 Fehler...

#1

Delphi-Quellcode:

SetWindowLong(hWnd, GWL_WNDPROC, LongInt(@NewWndProc));

Kommt bei mir der Fehler, dass eine Variable erwartet wird, und bei...

#2

Delphi-Quellcode:

Result := CallWindowProc(OldWndProc, hWnd, Msg, wParam, lParam);

...sagt er mir, dass nicht genügend Paramter vorhanden sind?

[retnyg]

ich hatte ein @ vergessen, habs nun korrigiert... probier nochma

[NeoXan]

yo, kompiliert...aber klappen tut es nicht ganz ;) (Was nicht heißt, dass du etwas falsch gemacht hast)

Ich habe:

Delphi-Quellcode:

SetWindowLong(WindowHandle, GWL_WNDPROC,LongInt(@NewWndProc));

und bei NewWndProc steht

Delphi-Quellcode:

ShowMessage('Message');

nach Begin, jedoch wird anscheinend die Funktion NewWndProc nie aufgerufen...
WindowHandle wird wie folgt gefunden:

Delphi-Quellcode:

FindWindow( PChar(ClassName), nil);

...wobei ClassName natürlich der Klassenname ist...

Gibt es eine Möglichkeit, wie man überprüfen kann, ob alles richtig gesetzt wurde oder ähnliches.

vielen Dank
Florian

[marabu]

Die Gültigkeitsprüfung für deinen Fenstergriff hast du schon gemacht - dann kannst du noch mit SetWindowText() probeweise die Form.Caption verändern um zu sehen, ob du das richtige Fenster erwischt hast.

Grüße vom marabu

[retnyg]

oder probiere es mal mit klasseninstanz.handle oder .FHandle

[NeoXan]

Also:

SetWindowText funzt, d.h. der Handle wurde richtig gefunden...nur scheint SetWindowLong nicht wirklich zu funktionieren...auch

Delphi-Quellcode:

OldWndProc := TWndProc(Pointer(GetWindowLong(WindowHandle, GWL_WNDPROC)));

nicht, denn wenn es um

Delphi-Quellcode:

if @OldWndProc <> nil then

geht, so wird die Kondition nicht erfüllt, d.h. OldWndProc ist nil...

Meine Funktion schaut so aus:

Delphi-Quellcode:

function TRONPSTransClass.RestoreHandle():boolean;
begin
  if @OldWndProc <> nil then
  begin
    SetWindowLong( WindowHandle, GWL_WNDPROC, LongInt(@OldWndProc));
    SetWindowText( WindowHandle, PChar('...'));
    Result := true;
  end;
end;

function TRONPSTransClass.InjectOwnHandle(): boolean;
begin
  if(isWindow( WindowHandle )) then
  begin
    RestoreHandle();
    OldWndProc := TWndProc(Pointer(GetWindowLong(WindowHandle, GWL_WNDPROC)));
    if @OldWndProc <> nil then
    begin
      SetWindowLong( WindowHandle, GWL_WNDPROC, LongInt(@NewWndProc));
      SetWindowText( WindowHandle, PChar('...'));
    end;
  end;
end;

siehe http://www.delphipraxis.net/internal...ct.php?t=73357

[marabu]

Es wird wohl etwas komplizierter als ich dachte:

Win32 SDK

The SetWindowLong function fails if the window specified by the hWnd parameter does not belong to the same process as the calling thread.

Vielleicht helfen die Informationen aus diesem thread weiter: klick

marabu

[TriphunEM]

oh also jungs ich komm jetzt hier nicht mehr nach und versteh nur bahnhof ???

also ich will die Botschaft WM_RBUTTONDOWN aus der Klasse TTBPopupWindow abfangen.

Könnt bitte jemand so nett sein und den hier geposteten code mal für mein Problem umstricken?

Wäre sehr dankbar!?

[retnyg]

Delphi-Quellcode:

setmsghook(meineKomponente.handle);

@neoxan: wenn du das mit einem fremd-progamm machen willst musst du eine dll machen und die im zielprozess laden
CreateRemoteThread

[TriphunEM]

äm, die Klasse TTBPopupWindow besitzt aber igrendwie kein Handle-Wert!???

Vielleicht ist es ja eine andere Klasse, bloß wie finde ich das raus?

[retnyg]

die klasse hab ich nicht, such doch einfach im source nach hwnd oder handle
dann solltest du die entsprechende property finden

falls es sich um ein popupmenü handelt kann es jedoch gut möglich sein, dass es gar kein eigenes handle gibt

[TriphunEM]

naja, das weiß ich ne, bloß ich weiß das WinSpy mir die Botschaft anzeigt, also muss sie auch irgendwie abfangbar sein!

[marabu]

Hallo Frank,

als Entschädigung für das vorübergehende (und unbeabsichtigte) thread hijacking habe ich dir etwas Code in deinem ursprünglichen thread hinterlassen: klick

Grüße vom marabu

[TriphunEM]

hi. danke, aber jetzt dreht es sich nur noch um die Toolbar2000.

Warum, habe ich dir auf dein Posting in meinem alten Thema beantwortet. Onlick und rechte Maustaste

trotzdem danke für deine mühe.