Здравствуйте, -prus-, Вы писали:
P>Здравствуйте, Аноним, Вы писали:
А>>Да, только где взять ссылку на этот объект?
P>Вы указатель на этот объект передаете в функцию.
P>P>...
P>var
P>Unknown: IUnknown;
P>...
P> Unknown := Self;
P> OleCheck(OleCreatePropertyFrame(GetActiveWindow, 16, 16,
P> nil,
P> 1, @Unknown, Pages.cElems, Pages.pElems,
P> GetSystemDefaultLCID, 0, nil));
P>...
P>
P>Потом, как ненужен станет, сделайте Unknown.Release.
Это не тот объект. С проблемой удалось разобраться. Как выяснилось, проблема в VCL
destructor TActiveXPropertyPage.Destroy;
begin
FPropertyPageImpl.FPropertyPage.Free;
FPropertyPageImpl.Free;
end;
Не вызывается inherited destroy
