external-Deklarationen

[Heffalump]

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.