WindowProc einer Klasse?

[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.