[Michae1]

Здравствуйте, я новичок в Delphi, поэтому прошу особо не пинать за вопрос.
Каким образом в классе или в методе класса можно рарешить вызов этого метода в неквалифицированной форме?
Т.е. например, имеется код COM-класса:

Код:

unit Test01;
{$WARN SYMBOL_PLATFORM OFF}
interface
uses
  Windows, ActiveX, Classes, ComObj, Tst01_TLB, StdVcl;
type
  TTest01 = class(TTypedComObject, ITest01)
  published
    function Method1: SYSINT; stdcall;
  end;
implementation
uses ComServ, Dialogs;
function TTest01.Method1: SYSINT; export;
begin
  ShowMessage('OK');
  Result:=0;
end;
initialization
  TTypedComObjectFactory.Create(ComServer, TTest01, Class_Test01,
    ciMultiInstance, tmApartment);
end.

Когда этот все компилируется в DLL, и затем вызывается из других программ то вызов типа TTest01.Method1 работает прекрасно, а мне очень нужно чтобы вызывалось просто Method1 без указания объекта.

[lmikle]

Тогда сделай простую DLL, а не СОМ.

[Michae1]

Сообщение от lmikle

Тогда сделай простую DLL, а не СОМ.

Простая DLL это крайний вариант, поскольку она будет использоваться в десятках приложений и содержать несколько сотен функций, количество которых будет еще расти, и декларировать эти функции во всех приложениях совсем не хочется, а COM позволил бы подключать их все сразу.
Кроме того известно что это возможно, т.к. есть компоненты которые работают одновременно и в простом вызове (главное чтобы не было конфликтов) и в объектном.
Например в VB есть св-ва класса "Instancing=GlobalMultiUse", которое включает эту возможность, а в Delphi такого нет, есть "Instancing=Multiple Instance", как бы сделать его Global?