Version abfragen in Word, Excel, Outlook und Access

[LuckySpacy]

Hallo,
ich möchte ein Delphiprogramm schreiben, was die Versionen der Installierten Microsoftprodukte anzeigt.

Ich hätte da ganz gerne den ersten Text, der angezeigt wird wenn man über ? auf Info klickt.
Also, den Produktname, das Jahr, die SR Nr. und die Versionsnummer.

Kann mir da jemand weiter helfen?

[Garby]

Hallo,

die Infos dürften alle in der Registry unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ zu finden sein.

[LuckySpacy]

Danke erst einmal für die Antwort.

Also, ich habe jetzt unter HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ in der Registry nachgeschaut.
Ich konnte aber nichts finden.

Daraufhin habe ich die Registry durchsucht und unter
"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Shared Tools\MSInfo\Categories\Applications\Word" konnte ich zumindest den Produktnamen sowie das Jahr sehen.

Aber das alles nützt mir nichts.
Ich brauche eine definitive Aussage, wie ich an die Informationen komme.
Das Programm soll auf verschiedenen Windowsversionen (95, 98, NT, 2000, XP) laufen und immer funktionieren.
Deshalb nützt es mir nichts, wenn ich auf meinem Rechner die Informationen von Hand zusammensetze und auf einem anderem Rechner (anderes Windows, anderes Office-Paket) dann nichts angezeigt wird.

[Cuchulainn]

Sieh dir mal die Hilfe zur Windows API an. Vielleicht findest du dort etwas.

[Mario]

Delphi-Quellcode:

function GetInstalledWordVer: String;
 VAR Registry: TRegistry;
     TempString: String;
begin
 Registry:=TRegistry.Create;
 Registry.RootKey:=HKEY_CLASSES_ROOT;
 Registry.OpenKey('Word.Application\CurVer',False);
 TempString := '';
 TRY 
  TempString :=Registry.ReadString('');
 EXCEPT
 END;
 Result := TXT_KeinWord;
 IF LastDelimiter('.',TempString) > 0
  THEN
   BEGIN
    CASE StrToInt(Copy(TempString, LastDelimiter('.',TempString) + 1, Length(TempString))) OF
     6: Result := TXT_Word95;
     8: Result := TXT_Word97;
     9: Result := TXT_Word2k;
     10:Result := TXT_WordXP;
     11:Result := TXT_Word2003;
    ELSE Result := TXT_WordUnbekannt;
    END; // CASE
   END; // END
 Registry.Free;
End; // function GetInstalledWordVer: String;