Wie DVD Transfer mit ShrinkTo5.DLL?

[Garfield]

Hallo Heiko,

vielen Dank für Deine Antwort. Callbacks sind neu für mich. Das Beispiel von Luckie kann ich nachvollziehen, aber bei meinem Problem komme ich nicht viel weiter:

Delphi-Quellcode:

type
  ...
  TFNCallBack    = function(alert, param: Integer; pTransfer, pUser: Pointer): Integer; stdcall;
  TFNSetCallBack = procedure(pCallBack, pUser: Pointer); stdcall;
  ...

  TShrinkTo5 = Class
  private
    ...
    FCallBack: TFNCallBack;
    procedure SetCallBack(pCallBack, pUser: Pointer); stdcall;
  public
    property CallBack: TFNCallBack write FCallBack;
    ...
  end;

procedure TShrinkTo5.SetCallBack(pCallBack, pUser: Pointer);
var
  CallbackProc: TFNCallBack;
begin
  @CallBackProc := PCallBack;
//  FCallBack(CallBackProc.);
end;

Bevor der Transfer starten soll, habe ich jetzt vorerst
    FNSetCallBack(@FCallBack, pUser); zu stehen, wobei pUser = nil ist, weil ich noch nicht weiß, was ich damit anfangen soll.