Delphi - Office alkalmazások verziószámának lekérdezése

forráskód letöltése
A mellékelt komponens a telepített Office alkalmazások verzióját kérdezi le egy-egy property-be.
A mellékelt példaprogram megnyitása előtt az OfficeVersion.pas-ban lévő komponenst telepítenie kell a Delphi alá.
A komponens Versions property-jén belül minden Office alkalmazáshoz van egy-egy sztring típusú property, amelybe az adott alkalmazás verziószámát lekérdezzük. A lekérdezés az Active property értékének igazra állításakor következik be.
A verziószámok lekérdezése a Refresh eljárásban történik úgy, hogy hozzákapcsolódunk minden egyes Office alkalmazáshoz.
Minden Office alkalmazásnak van egy fő objektuma, az Application. Minden Application objektumnak van egy Version property-je, ami sztring típusú, és az adott alkalmazás verziószámát tartalmazza.
Mivel a kapcsolódást úgy oldjuk meg, hogy az Application objektumot egy OleVariant típusú változóba kérdezzük le, így ezt az egy változót felhasználhatjuk minden alkalmazásnál. A lekérdezés egy ciklusban történik. Ha a kapcsolódás nem sikerül, akkor a property-be egy üres sztringet írunk. Ez általában csak akkor következik be, ha az alkalmazás nincs telepítve.
A verziószám lekérdezés után az alkalmazást bezárjuk. Szerencsére itt is egyszerű dolgunk van, mert minden Application objektumnak van egy Quit metódusa, ami ezt a műveletet elvégzi.