DLL einbinden

[sakura]

Code:

[color=#ff0009]type
  TAddieren = function(eins,zwei:integer):integer; stdcall;[/color]
procedure TForm1.Button2Click(Sender: TObject);
var
  LibHandle: THandle;
  bums:integer;
[color=#ff0000]  Addieren: TAddieren;[/color]
begin
    LibHandle := LoadLibrary('c:\DLL.dll');
    if LibHandle = 0 then
      raise Exception.Create('Unable to Load DLL...')
    else
    begin
[color=#ec0000]      try Addieren := GetProcAddress(LibHandle, 'Addieren');
        if Assigned(Addieren) then[/color]
          bums:=Addieren(2,3);
      except
        on E: Exception do
          ShowMessage('Exception error: ' + E.Message);
      end;
    end;
    FreeLibrary(LibHandle);
end;

Du musst nicht mit Pointern arbeiten

......