1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses ComObj;

{
const
  Wordversion97 = 8;
  Wordversion2000 = 9;
  WordversionXP = 10;
  Wordversion2003 = 11;
}
function GetInstalledWordVersion: Integer;
var
  word: OLEVariant;
begin
  word := CreateOLEObject('Word.Application');
  result := word.version;
  word.Quit;
  word := UnAssigned;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, registry, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    procedure RegEintraege;
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RegEintraege;
var
  r_haupt,r_office,r_progs: TRegIniFile;
  Haupt,Office,Progs: TStringList;
  m,n,ka,i,j,g: Integer;
  Datei,Name,Ordner,Ordner2,hilf: String;
  drin : Boolean;
  version, filename, prog, v_name : Array [0..3] of string;
begin
   version[0]:='8';
   version[1]:='9';
   version[2]:='10';
   version[3]:='11';
   v_name[0]:='Office 97';
   v_name[1]:='Office 2000';
   v_name[2]:='Office XP';
   v_name[3]:='Office 2003';
   filename[0]:='winword.exe';
   filename[1]:='excel.exe';
   filename[2]:='Access.exe';
   filename[3]:='Powerpoint.exe';
   prog[0]:='Word';
   prog[1]:='Excel';
   prog[2]:='Access';
   prog[3]:='Powerpoint';
  Haupt := TStringList.Create;
  Office := TStringList.Create;
  Progs := TStringList.Create;
  try
    begin
      for n:=0 to 3 do
      begin
         r_haupt := TRegIniFile.Create;
         r_haupt.RootKey := HKEY_LOCAL_MACHINE;
          if r_haupt.OpenKey('Software\Microsoft\Office', FALSE) then
          r_haupt.ReadSections(Haupt);
        for i := 0 to Haupt.Count - 1 do
        begin
          r_office:=r_haupt;
          ordner := Haupt.Strings[i];
          ka:=pos('.',ordner);
          hilf:=copy(ordner,0,ka-1);
          if hilf = version[n] then
          begin
            r_office.OpenKey(ordner, FALSE);
            r_progs:=r_office;
            r_office.ReadSections(Office);
            for j := 0 to Office.Count - 1 do
            begin
               ordner2 := Office.Strings[j];
               for m:=0 to 3 do
               begin
                 if ordner2 = prog[m] then
                  begin
                    r_progs.OpenKey(prog[m], FALSE);
                    r_progs.ReadSections(Progs);
                    for g := 0 to Progs.Count - 1 do
                    begin
                      Name := r_progs.ReadString(Progs[g], 'Path', '');
                      datei:=name+filename[m];
                      drin:=FileExists(datei);
                      if drin=true then listbox1.items.add(v_name[n] + ' : ' + datei);
                    end;
                  end;
                end;
            end;
          end;
      end;
    end;
    Haupt.Free;
    end;
  finally
    r_haupt.Free;
    Progs.Free;
    Office.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RegEintraege;
end;

end.