Prüfen, ob Excel installiert ist

[Chemiker]

Hallo zusammen,

@ Luckie: Also, in meinen Programmen machte es absolut keinen Sinn, ohne Excel weiterzuarbeiten. Aus diesem Grund kann man eine Exception verwenden.

@KodeZwerg: Mit Deinem Code (der veraltet ist) baust Du CreateOleObject/GetActiveOleObject eigentlich nur nach.


Bis bald Chemiker

[KodeZwerg]

Zitat von Chemiker:

@KodeZwerg: Mit Deinem Code (der veraltet ist) baust Du CreateOleObject/GetActiveOleObject eigentlich nur nach.

Eigentlich ruft mein Code die Registry HKEY_LOCAL_MACHINE\SOFTWARE\Classes\CLSID ab soweit ich mich erinnern kann und der OLE Created/Getted nichts.

Ich muss mal debuggen um das nachzuvollziehen was Du da schreibst.

Veraltet? Wie lautet bitte NextGen Befehl der meinen Ersetzt? (CLSIDFromProgID)

[MHaitz]

Vielen Dank schon mal für die vielen Vorschläge.
ich hab mich mal für die Version:
'Result := CLSIDFromProgID(PWideChar(WideString('Excel.Applic ation')), ClassID) = S_OK;'
entschieden.
Noch eine weitere Frage.
Auf neuen Rechnern mit Windows 10 ist meist eine vorinstallierte, aber nicht voll funktionsfähige Excel Version vorhanden, welche wohl zum Kauf einer Volllizenz animieren soll.
In beiden Fällen liefert obige Funktion True.

Gibt es eine Möglichkeit, die 'vorläufige' Version von einer Vollversion vom Programmcode aus zu unterscheiden?

Gruß
MHaitz

[KodeZwerg]

Ich habe leider keine Demo Version davon, aber mein erster Gedanke wäre mich durch die Registry zu wühlen.

Hier siehst Du einen Ansatz dazu.

edit
Ps:
Um nach einer gezielten Registry zu fahnden, hier erfährst Du welche Versionsnummer Du in Registry abfragen musst.

[Delphi.Narium]

In der Registry nachschauen.

In der Gegend von HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\ Common\ProductVersion solltest Du fündig werden.

11.0 kann auch was anderes sein, jenachdem, welches Office installiert ist.

Dann liefert excel version delphi source bei meiner Suchmaschine u. a. dieses: https://stackoverflow.com/questions/...xcel-in-delphi