Bei einer Klasse würde hier eine "vorwärts Deklaration" helfen:
Delphi-Quellcode:
type
rMonitor = class; // forward declaration
rMonitor= class(TObject)
public
pfnEnumPorts: function (pName:PWideChar;dwLevel:DWORD;pPorts:PByte;
cbBuf:DWORD;var pdwNeeded,pdwReturned:DWORD):LongBool;stdcall;
pfnOpenPort: function (pName:PWideChar;pH:PHandle):LongBool;stdcall;
pfnOpenPortEx: function (pName,pPrinterName:PWideChar;pH:PHandle;
_Monitor:rMonitor):LongBool;stdcall;
end;
Beim Record wird's aber schwierig...