1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

type TUser = class
  Function GetHandle(Titel: PChar): HWnd; stdcall;

...

Function TUser.GetHandle(Titel: PChar): HWnd; stdcall;
begin
  Result := FindWindow(nil, Titel);
end;

...

exports
  TUser.GetHandle; //geht nicht
  GetHandle; //Geht nicht					

1:
2:
3:
4:
5:

type
   IFoo = class
     public
       procedure DoSomethingStupid; virtual;abstract;
end;					

1:
2:
3:
4:
5:

type
  TFoo = class(IFoo)
     public
       procedure DoSomethingStupid;override; 
end;					

1:
2:
3:
4:
5:
6:

function ExportFoo : IFoo;stdcall;
var foo : TFoo; //Klasse , die in der DLL implementiert worden ist
begin
  foo := TFoo.Create;
  result := foo;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var DieKlasse : TDieKlasse;

procedure TDieKlasse.Klassenmethode(Parameter : cardinal);
begin
...
end;

(... Außerhalb der Klasse)

type TDieMethode = procedure(Parameter : cardinal) of object;

var Methodenzeiger : TMethod;

(...)

Methodenzeiger.Code := @TDieKlasse.Klassenmethode;
Methodenzeiger.Data := DieKlasse;
TDieMethode(Methodenzeiger)(6935);