[DLL] Procedure Deklarieren

[gsh]

Hi DPler

Bin ich echt zu blöd um in einer DLL eine procedure zu deklarieren?
Also ich hab zwei proceduren in meiner DLL eine davon wird export und die andere nicht.

Ich muss eine davon deklarieren da sonst immer eine davon nicht gefunden wird, denn die eine ruft die andere auf und umgekert. Also wenn ich jetzt eine davon unter die andere schreib dann wird klarerweiße die andere nicht mehr gefunden. Naja kompliziert aber logisch

Hier mal mein Source:

Delphi-Quellcode:

library TestPlugin;

uses [..]

{$R *.res}

var
  PluginSend : procedure(Befehl : integer; Parameter : Pointer);

procedure PluginMain(Befehl : integer; Parameter : Pointer); stdcall;
begin
  case Befehl of
    BefehlToPlugin_PluginInit://PluginInit
    begin
      PluginSend := TPluginRecordToPlugin_PluginInit(Parameter^).PluginSend;
      ObserverAnmeldung;     //<-- Wird nicht gefunden weil es unten steht
    end;
  end;
end;

procedure ObserverAnmeldung;
var
  TempPluginRecordToApp_PluginMain : TPluginRecordToApp_PluginMain;
begin
  TempPluginRecordToApp_PluginMain.PluginMain := PluginMain;  //<-- Hier wird die PluginMain zwar gefunden aber nur weil diese procedure unten steht
  PluginSend(BefehlToPlugin_PluginFree*-1, @TempPluginRecordToApp_PluginMain);
end;

exports PluginMain;

begin
end.

Ich hoff ihr versteht mich