folgendes Beispiel läßt sich mit Delphi 2006 erstellen.
Delphi-Quellcode:
unit Beispiel;
interface
uses System.Runtime.InteropServices;
type
_1A_Archive =
class(System.
Object)
{...}
[DllImport('
A1_Archive4Client.dll', EntryPoint='
A1AC_Create')]
class function _Create: Integer;
static;
{...}
end;
implementation
{ _1A_Archive }
class function _1A_Archive._Create: Integer;
begin
end;
end.