Im Anhang habe ich mal mein
"ActiveXStarterKit" angehängt.
Programmiert mit Delphi 5.
Es enthält eine Anwendung mit Automatierungsschnittstelle sowie ein VBScript, mit dem die Anwendung angesteuert wird.
Delphi-Quellcode:
IApplication = interface(IDispatch)
['{1A8EFC07-D8CF-493C-B544-16080D82EBE6}']
function Get_Version: WideString; safecall;
procedure SendTextMessage(const text: WideString); safecall;
function MethodeDieExceptionVerursacht: WideString; safecall;
function Get_Caption: WideString; safecall;
procedure Set_Caption(const Value: WideString); safecall;
property Version: WideString read Get_Version;
property Caption: WideString read Get_Caption write Set_Caption;
end;
Falls ich mal Zeit finde, mache ich noch eine
ActiveX DLL hinzu.