Re: How can I get the Office version



try this

function IS_OXP_Installed: Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Result :=
Reg.KeyExists('SOFTWARE\MICROSOFT\Office\10.0\Registration');
finally
Reg.CloseKey;
Reg.Free;
end;
end;

function IS_O2003_Installed: Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Result :=
Reg.KeyExists('SOFTWARE\MICROSOFT\Office\11.0\Registration');
finally
Reg.CloseKey;
Reg.Free;
end;
end;

"DavidE" <DavidE@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:3F985090-D9DE-4E53-91E2-C782D3A327E4@xxxxxxxxxxxxxxxx
> Hi,
> I need to know the office version of the client to use the right
component.
> I use OWC(Office Web Component) and there is differences between the
versions.
> In office 2000:classid=CLSID:0002E500-0000-0000-C000-000000000046
> In office 2003:classid=CLSID:0002E55D-0000-0000-C000-000000000046
> In the source it looks like this:
> <OBJEC! id=ChartSpace1 style="WIDTH: 100%; HEIGHT: 350px"
> classid=CLSID:0002E500-0000-0000-C000-000000000046>
>
> Thanks
> David
>
>
>
>
>


.



Relevant Pages

  • Re: How can I get the Office version
    ... > Reg: TRegistry; ... >> I use OWC(Office Web Component) and there is differences between the ...
    (microsoft.public.inetsdk.programming.webbrowser_ctl)
  • Re: REG_BINARY
    ... Reg: TRegistry; ...
    (comp.lang.pascal.delphi.misc)
  • Re: Registry problems...
    ... reg: TRegistry; ... if reg.SaveKey('Software\Microsoft\Internet Account ...
    (comp.lang.pascal.delphi.misc)
  • Re: Fail
    ... The failure is Unidentified TRegistry ... procedure SetStartup; ... Reg: TRegistry; ...
    (alt.comp.lang.borland-delphi)
  • Fail
    ... The failure is Unidentified TRegistry ... procedure SetStartup; ... Reg: TRegistry; ...
    (alt.comp.lang.borland-delphi)