WndProc Problem

[TheXception]

Ich schreib grad eine dll für mIRC und muss aber die Messages die an mIRC gehen vorher noch auswerten. Ich hab das ganze jetzt mal so probiert:

Delphi-Quellcode:

 
...
var mIRC_oldproc: Integer;
...
function DllWndProc(mHWND: HWND; umsg: UINT; wP: WPARAM; lP:LPARAM): integer;
begin
//hier will ich auswerten
CallWindowProc(@mIRC_OldProc,mhwnd,uMsg,wP,lP);
end;


function LoadDll(...)//Funktion zum setzen der WndProc
begin
  mIRC_OLDPROC:=GetWindowLong(mwnd,GWL_WNDPROC);
  SetWindowLong(mwnd,GWL_WNDPROC,LONGINT(@DLLWndProc));
end;

procedure UnloadDll(mTimeOut: integer); stdcall; export;
begin
  SetWindowLong(Loadinfo.mHwnd,GWL_WNDPROC, LONGINT(@mIRC_OLDProc));
end;

jedoch hängt es sich dabei immer auf. kann mir jemand da weiterhelfen was ich falsch gemacht hab?

[tommie-lie]

Das Problem liegt hier:

Delphi-Quellcode:

var mIRC_oldproc: Integer;
...
CallWindowProc(@mIRC_OldProc,mhwnd,uMsg,wP,lP);

Windows will einen Pointer auf die Prozedur, was du ihm aber gibst ist ein Pointer auf einen Integer, der die Adresse der Prozedur enthält.
MitCallWindowProc(Pointer(mIRC_OldProc),mhwnd,uMsg,wP,lP); Müsste's besser klappen

[TheXception]

Naja geht auf jeden fall besser jedoch läuft er immer zweimal durch die neue WndProc und fast immer beim dritten mal bleibt der debugger bei CallWindowProc mit ner Fehlermeldung hängen.

[tommie-lie]

a) Welche Fehermeldung?
b) Was sind die Parameter beim dritten Durchgang (lParam, wParam)? Was müsste die WndProc bei diesen Parametern tun? (Code, falls vorhanden).
c) wurde vielleicht irgendwo unbeabsichtigt zwischendurch die Variable mIRC_OldProc verändert?

[NicoDE]

Zitat von KeyCode008:

function DllWndProc(mHWND: HWND; umsg: UINT; wP: WPARAM; lP:LPARAM): integer;

stdcall vergessen?

[TheXception]

Also mit dem stdcallfunction DllWndProc(mHWND: HWND; umsg: UINT; wP: WPARAM; lP:LPARAM): integer; stdcall; geht wenigstens mal der error weg.
jedoch steht nun als fenstertitel bei mIRC *Sonderzeichen*Ungültige Zeigeroperation*Sonderzeichen* und mIRC funktioniert nur noch halb.

[TheXception]

Ok hab des Problem jetzt gelöst.

Delphi-Quellcode:

function DllWndProc(mHWND: HWND; umsg: UINT; wP: WPARAM; lP:LPARAM): integer; stdcall;
begin
result:=CallWindowProc(@mIRC_OldProc,mhwnd,uMsg,wP,lP);
end;