DLL öffnen, deren Name ich nicht weiß

[scp]

Vorher:

Delphi-Quellcode:

const dllname = 'irgendeine.dll';

function EineFunc(EinParam : Cardinal) : longbool; stdcall; external dllname;

Nachher:

Delphi-Quellcode:

type
  TEineFunc  = function (EinParam : Cardinal) : longbool; stdcall;

var
  EineFunc : TEineFunc;


var
  dllname: string;
  dllhand: thandle;
  nummer: integer;
procedure LoadDLL;
begin
  dllname := 'irgendeine' + IntToStr(nummer) + '.dll';
  dllhand := loadlibrary(PChar(dllname));
  try
    if dllhand <> 0 then
      begin
        EineFunc := GetProcAddress(dllhand, 'EineFunc');
      end;
  finally
    freelibrary(dllhand);
  end;
end;