Subclassing einer fremden Application, warum funzt das net ?

[stoxx]

Hallo !

Ich wollte die WndProc einer fremden Application subclassen, aber irgendwie funzt das net.
Also die neu definierte NewWinProc wird niemals aufgerufen.
Es passiert einfach gar nix ..!
Wo liegt der Fehler ?

Danke !

Delphi-Quellcode:

var
   OldWinProc: Integer;

////////////////////////////////////////////////////////////////////////////////

function NewWinProc(hWnd: HWND; Msg: WORD; wParam: WORD; lParam: LONGINT): 
LONGINT;
var
   MessageProcessed: Boolean;
begin
   MessageProcessed := False;
  // case Msg of

  // end; {end of case Msg }
   if not MessageProcessed then
      Result := CallWindowProc(@OldWinProc,hWnd,Msg,wParam,lParam)
   else
      Result := 0;
end;

/////////////////////////////////////////////////////////////////////////////////

procedure SubClassWin(hWnd: HWND);
begin
   OldWinProc := SetWindowLong(hWnd,GWL_WNDPROC,integer(@NewWinProc));
end;

/////////////////////////////////////////////////////////////////////////////////

procedure UnSubClassWin(hWnd: HWND);
begin
   SetWindowLong(hWnd,GWL_WNDPROC,OldWinProc);
end;

/////////////////////////////////////////////////////////////////////////////////

procedure TForm1.Button1Click(Sender: TObject);
var h : hwnd;
begin

h := findwindow('notepad', nil);
if h > 0 then subclasswin(h);

end;

[Luckie]

Der Fehler liegt darin, dass das nicht geht. Zu mindest wohl nicht so einfach. Warum es nicht geht und wie man es amcht, kann ich dir leider auch nicht sagen.

[Chewie]

IM PSDK klingt es so, als würde es unter Win9x gehen:

Zitat von PSDK:

GWL_WNDPROC
Sets a new address for the window procedure.

Windows NT/2000/XP: You cannot change this attribute if the window does not belong to the same process as the calling thread.

Für mich bedeutet das, dass das Subclassen fremder Fenster bei NTff nicht geht, wohl aber bei Win9x.

Bei NTff müsste es eigentlich irgendwie über VirtualAllocateEc und Read/WriteProcessMemoyr gehen. Man müsste den Aufruf von SetWindowLong irgendwie in den fremden Prozess kriegen und die eigene WindowProc ebenfalls (natürlich auch die Wiederherstellung der Original-Fenterprozedur). Dann müsste es eigentlich funktionieren, denn es würde die Bedingung "belongs to the same process as the calling thread" gelten.
So, wie du jetzt Code in einen fremden Prozess kopierst, kann dir (hoffentlich) Luckie sagen (oder er kann mir erklären, wieso das, was ich geschrieben hab, nicht funktioniert ). Oder schau dir mal LuckieDips (auf http://www.luckie-online.de) an, da wird auch sowas ähnliches gemacht.

[Luckie]

Die Dips haben nichts mit Subclassing am Hut und mit Read- / WriteProcessMemory liest man nur Speicher aus und damit dürfte man auf dem falschen Weg sein.

[Chewie]

Aber soweit ich das kopiert hab, kopiert man doch irgendwie ausführbaren Code in einen fremden Prozess, oder?

[Luckie]

Nein Speicher.

[Chewie]

Liegt der Code nicht auch im Speicher? Ich meinte, sollte es nicht möglich sein, den Speicher, in dem sich der Code befindet, in den fremden Prozess zu kopieren?

[Luckie]

Klar tut er das. Nur ist es ein Unterschied, ob es Programmcode ist oder ob es Daten (Variablen) sind.

[kiar]

deine alte poc musst du als pointer in den var parameter aufnehmen . in der initialization musst du deiner alten proc nil zuweisen und deine neue procedure musst mit stdcall aufgerufen werden.

so zumindest schreibt es kosch in seinem buch

raik

[DaFox]

Hi,

Zitat von Chewie:

Für mich bedeutet das, dass das Subclassen fremder Fenster bei NTff nicht geht, wohl aber bei Win9x.

Geht schon, du musst aber Deinen Code (also zumindest die neue WndProc) in den Addressraum Deiner Zielanwendung injizieren.

Einfachste Möglichkeit:
- DLL mit Hook um in den anderen Adressraum zu gelangen
- SetWindowLong()/SetClassLong() um WndProc umzubiegen (siehe oben)
- MMF zur "Interprocess Communication"

Gruß,
Markus