类成员函数转 Windows 回调函数通用代码单元 - ClassCallback.pas

{ unit ClassCallback;                                                          }

{                                                                              }

{ A generic solution of make class method to windows callback function         }

{                                                                              }

{ written by savetime, http://savetime.delphibbs.com 2004/6/21                 }

{                                                                              }

{ Usage:                                                                       }

{   1. Include this unit to your delphi project.                               }

{   2. Declare the class callback function same as the corresponding windows   }

{      callback function, notice that must be 'stdcall' function.              }

{   3. Declare an TCallbackInstance field in the class.                        }

{   4. Use MakeCallbackInstance function to make the FCallbackInstance.        }

{   5. Now you can use FCallbackInstance as the windows callback function      }

{                                                                              }

{ Discussion:                                                                  }

{   http://www.delphibbs.com/delphibbs/dispq.asp?lid=2672562                   }

{                                                                              }

unit ClassCallback;

interface

  type TCallbackInstance = array [1..18] of Byte;

  procedure MakeCallbackInstance(var Instance: TCallbackInstance;

    ObjectAddr: Pointer; FunctionAddr: Pointer);

implementation

  {----------------------------}

  { CallbackCode DASM          }

  {----------------------------}

  {    MOV EAX, [ESP];         }

  {    PUSH EAX;               }

  {    MOV EAX, ObjectAddr;    }

  {    MOV [ESP+4], EAX;       }

  {    JMP FunctionAddr;       }

  {----------------------------}

  procedure MakeCallbackInstance(var Instance: TCallbackInstance;

    ObjectAddr: Pointer; FunctionAddr: Pointer);

  const CallbackCode: TCallbackInstance =

    ($8B,$04,$24,$50,$B8,$00,$00,$00,$00,$89,$44,$24,$04,$E9,$00,$00,$00,$00);

  begin

    Move(CallbackCode, Instance, SizeOf(TCallbackInstance));

    PInteger(@Instance[6])^ := Integer(ObjectAddr);

    PInteger(@Instance[15])^ := Integer(Integer(FunctionAddr) - Integer(@Instance) - 18);

  end;

 

end.