Abstutz nach DLL zugriff

[Tonic1024]

Schon mal diesen Konstrukt für dynamischen DLL-Zugriff versucht?

Delphi-Quellcode:

type
  Tfunc = function(Bla: String): Integer;

function CallFunc(sowiso: String):Integer;
var func: Tfunc ;
    Handle: THandle;
    filepath: string;
    DefResult: integer;
begin
  DefResult:=0;
  filepath:=ExtractFilePath(ParamStr(0))+ProgramFiles.Path;
  Handle:=LoadLibrary(@filepath[1]);
  if Handle <> 0 then
  begin
    @func:= GetProcAddress(Handle, 'MyDLLFunc');
    if @func <> nil then
    begin
      DefResult:=func(Gruppen, Fahrer, Abteilung, Modus);
    end;
    FreeLibrary(Handle);
  end;
  Result:=DafResult;
end;

Toni