versuchs mal damit
Delphi-Quellcode:
//im implementation-Abschnitt deklarieren
//das hier ist nur ein beispiel, das wahrscheinlich an die funktionen deiner DLL angepasst werden muss
type TTestFunction =
function(x,y:Integer):integer;
var DLLHandle:THandle;
Func:TFarProc;
TestFunction:TTestFunktion;
ergebnis:
string;
//laden der DLL
DLLHandle := LoadLibrary(Pchar(DLLName));
//DLLName mit dem eigentlichen Namen der DLL ersetzen, logisch
//Adresse einer Funktion ermitteln
Func := GetProcAddress(DLLHandle,'
cdtdraw');
//Wenn die Funktion gefunden wurde
if Func <>
nil then begin
@TestFunction := Func;
//Ausführen des Codes
ergebnis := IntToStr(TestFunction(4,5));
//übergeben der Parameter an die Funktion
Func:=nil;
//Freigeben der DLL
FreeLibrary(DLLHandle);
habs nicht getestet, müsste aber funktionieren
kaemmi
