[DUG] comobject

[Leigh Wanstead]

Ok, problem solved.

My collegue Jolyon told me to override procedure
TComObjectFactory.UpdateRegistry(Register: Boolean); to solve the problem.
;-)

Regards
Leigh
www.smootharm.com

-----Original Message-----
From: delphi-bounces at ns3.123.co.nz
[mailto:delphi-bounces at ns3.123.co.nz]On Behalf Of Dave O'Brien
Sent: Friday, 26 January 2007 1:45 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: RE: [DUG] comobject


Can you check to see if the key exists with reg.openkeyreadonly before
writing?

-----Original Message-----
From: delphi-bounces at ns3.123.co.nz [mailto:delphi-bounces at ns3.123.co.nz]
On Behalf Of Leigh Wanstead
Sent: Friday, 26 January 2007 1:16 p.m.
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] comobject

Hello everyone,

Here is the sequence for a Delphi 7 comserver startup to call
CreateRegKey.

procedure TApplication.Initialize;
procedure InitComServer;
procedure TComServer.Initialize;
procedure TComServer.UpdateRegistry(Register: Boolean);
procedure TComClassManager.ForEachFactory(ComServer: TComServerObject;
  FactoryProc: TFactoryProc);
procedure TComServer.FactoryUpdateRegistry(Factory: TComObjectFactory);
procedure TTypedComObjectFactory.UpdateRegistry(Register: Boolean);
procedure TComObjectFactory.UpdateRegistry(Register: Boolean);
procedure CreateRegKey(const Key, ValueName, Value: string; RootKey:
DWord =
HKEY_CLASSES_ROOT);

I can understand that the delphi application needs to update registry.
But
there is no such need every time to update. It can be updated only once,
after that there is no such need. The question is if the user who launch
my
application does not create regristry rights, what to do? I don't want
user
to have admin rights just to start my application.

TIA

Regards
Leigh


_______________________________________________
Delphi mailing list
Delphi at ns3.123.co.nz
http://ns3.123.co.nz/mailman/listinfo/delphi

_______________________________________________
Delphi mailing list
Delphi at ns3.123.co.nz
http://ns3.123.co.nz/mailman/listinfo/delphi