Einzelnen Beitrag anzeigen

scp

Registriert seit: 31. Okt 2003
1.120 Beiträge
 
Delphi 7 Personal
 
#10

Re: DLL öffnen, deren Name ich nicht weiß

  Alt 27. Jan 2004, 14:03
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;
  Mit Zitat antworten Zitat