mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 10:58:23 +02:00
19 lines
411 B
ObjectPascal
19 lines
411 B
ObjectPascal
|
|
{$ifdef fpc}{$mode delphi}{$endif}
|
|
{$apptype console}
|
|
uses classes;
|
|
Type
|
|
|
|
_AppDomain = interface(IDispatch)
|
|
end;
|
|
IJclClrAppDomain = _AppDomain;
|
|
|
|
TJclClrAppDomain = class(TInterfacedobject, IJclClrAppDomain)
|
|
private
|
|
FDefaultInterface: IJclClrAppDomain;
|
|
protected
|
|
property DefaultInterface: IJclClrAppDomain read FDefaultInterface implements IJclClrAppDomain;
|
|
end;
|
|
|
|
begin
|
|
end. |