Prozedurale Typen zur Laufzeit erstellen?

[Sherlock]

Meinst Du sowas?

Delphi-Quellcode:

type
  TGetCallBack = procedure(CB: Pointer); stdcall;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
  GetCallBack: TGetCallBack;
.
.
.
    try
      @GetCallBack := GetProcAddress(MyDLLHandle, 'GetCallBack');
      if @GetCallBack <> nil then
        GetCallBack(@CallBack);

In diesem zerhackten Code wird sowas benutzt um eine Callback-Funktion zur Kommunikation zwischen einer DLL und dem aufrufenden Programm zu ermöglichen.

Sonst habe ich aber sowas noch nie gesehen.

Edit: Boah, bin ich langsam
Edit2: Zur Laufzeit....öhm. Nö.

Sherlock