Delphi DLL und Aufruf in Excel VBA

[matashen]

Danke,

habs jetzt anders gelöst über Variant,

Wenn ich aber die Exceldatei neu aufmache dann findet er die dll nicht wenn das Verzeichnis nicht mit angegeben ist. Geb ich das Verzeichnis an läuft die dll.

hier mein Funktionierender Code

Code:

Declare Sub QRtoClipboard Lib "QRgenerator.dll" (ByVal value As Variant)


Sub Schaltfläche1_Klicken()
Dim a As Variant
a = ActiveSheet.Range("A1")
QRtoClipboard (a)
ActiveSheet.Range("A20").Select
ActiveSheet.Paste

End Sub

Delphi-Quellcode:

procedure QRtoClipboard(value:  OLEVariant);stdcall;
var mycode:TZintbarcodeComponent;
    mybmp:TBitmap;
    MyFormat : Word;
    AData : THandle;
    APalette : HPALETTE;
    a,afehler:String;
begin;
try
//a:=String(value);
a:=value;