Prüfen, ob Excel installiert ist

[MHaitz]

Hallo allerseits,
ich greife von einem Delphi-Programm auf Excel zu. Um zu prüfen, ob Excel überhaupt installiert ist, verwende ich in einer try except Klausel CreateOleObject('Excel.Application'). Wenn Excel nicht installiert ist, wird ein Fehler ausgelöst und die Excel Funktionen des Programms gesperrt.

etwa folgendermassen:
FExcelIsInstalled := True;
try
try
tApp := CreateOleObject('Excel.Application');
if not VarIsNull(tApp) then begin
tApp.Visible := False;
tApp.Quit;
end else
FExcelIsInstalled := False;
except
FExcelIsInstalled := False;
end;
finally
tApp := UnAssigned;
end;

Leider scheint bereits der Aufruf CreateOleObject('Excel.Application') manchmal eine Access violation zu verursachen, wenn Excel nicht installiert ist.
Kennt jemand eine elegantere Methode, um die Installation von Excel abzufragen?

[KodeZwerg]

Hilft Dir das weiter?

Delphi-Quellcode:

Function IsExcelInstalled : Boolean;
var
  ClassID: TCLSID;
  strOLEObject: string;
begin
  Result := False;
  strOLEObject := 'Excel.Application';
  if (CLSIDFromProgID(PWideChar(WideString(strOLEObject)), ClassID) = S_OK) then
    Result := True
   else
    Result := False;
end;

[MHaitz]

Vielen Dank für die schnelle Antwort.

Das sieht schon mal gut aus. Werde es ausprobieren, und wenns Probleme gibt, mich wieder melden.

[KodeZwerg]

Es sollte funktionieren. Ein wenig Google und siehe da, hab noch was auf SO gefunden was eventuell Dir nützlich sein könnte.

Delphi-Quellcode:

uses ComObj, ActiveX;

function IsObjectAvailable(const ClassName: string): Boolean;
var
  ClassID: TCLSID;
begin
  Result := Succeeded(CLSIDFromProgID(PWideChar(WideString(ClassName)), 
    ClassID));
end;

function IsObjectActive(const ClassName: string): Boolean;
var
  ClassID: TCLSID;
  Unknown: IUnknown;
begin
  Result := False;
  if Succeeded(CLSIDFromProgID(PWideChar(WideString(ClassName)), ClassID)) then
    Result := Succeeded(GetActiveObject(ClassID, nil, Unknown));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsObjectAvailable('Excel.Application') then 
    ShowMessage('Excel is available');
  if IsObjectActive('Excel.Application') then 
    ShowMessage('Excel is running');
end;

[Chemiker]

Hallo,

oder einfacher:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Excel_Vorhanden() then
  begin
    ShowMessage(' Excel ist vorhanden');
  end
   else
  begin
    ShowMessage(' Excel ist nicht vorhanden');
  end;
end;

function TForm1.Excel_Vorhanden (): boolean;
var
  olevExcel: OleVariant;
begin
  Result:= TRUE;
  try
    olevExcel := GetActiveOleObject('Excel.Application');
  except
    try
      olevExcel := CreateOleObject('Excel.Application');
    except
      Result:= FALSE;
      exit;
    end;
  end;
end;

Bis bald Chemiker

[KodeZwerg]

Deine Methode wirft sofort eine Exception wenn man kein Excel installiert hat.
Ich mag meine Variante mehr :wink:

Ps: Exception kommt nur wenn innnerhalb IDE ausgeführt.

[Luckie]

Zitat:

Zitat von Chemiker (Beitrag 1411361)

Hallo,

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Excel_Vorhanden() then
  begin
    ShowMessage(' Excel ist vorhanden');
  end
   else
  begin
    ShowMessage(' Excel ist nicht vorhanden');
  end;
end;

function TForm1.Excel_Vorhanden (): boolean;
var
  olevExcel: OleVariant;
begin
  Result:= TRUE;
  try
    olevExcel := GetActiveOleObject('Excel.Application');
  except
    try
      olevExcel := CreateOleObject('Excel.Application');
    except
      Result:= FALSE;
      exit;
    end;
  end;
end;

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

[OLDIE1950]

Kleiner Tipp:
http://www.tech-ecke.de/index_querei...lphi/excel.htm

Verbindungsaufbau zu Excel

Code:

var Excel: Variant;
...
try
   Excel := CreateOleObject('Excel.Application');
   Excel.visible := true;
except
   ShowMessage('Excel konnte nicht gestartet werden !');
end;
   Excel.DisplayAlerts:=False;  // unterdrückt die Ausgabe Hinweisen von Excel
   Excel.Workbooks.Add;  // um ein neues Sheet zu erstellen, ist demnach beim lesen eines vorhandenen Sheets nicht nötig!

   // hier folgen die eigentlichen Steuerbefehle...

VarClear(Excel); // Freigabe

[p80286]

Zitat:

Zitat von Luckie (Beitrag 1411363)

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

Und was wäre die Alternative?

Delphi-Quellcode:

olevExcel := GetActiveOleObject('Excel.Application');
  if oleexcel=unassigned then.....

Gruß
K-H

[API]

GetActiveOleObject gibt eine Referenz auf die IDispatch-Schnittstelle des aktiven Objekts zurück.
Damit wird nicht überprüft, ob Excel installiert ist.

Und CreateOleObject('Excel.Application') erzeugt eine Excel Instanz, welche im Hintergrund weiterläuft, falls diese nicht beendet wird.

[KodeZwerg]

Zitat:

Zitat von p80286 (Beitrag 1411425)

Zitat:

Zitat von Luckie (Beitrag 1411363)

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

Und was wäre die Alternative?

Delphi-Quellcode:

olevExcel := GetActiveOleObject('Excel.Application');
  if oleexcel=unassigned then.....

Gruß
K-H

Anhang 49817
Testet Ihr eigentlich das?
Eine Test-Möglichkeit wäre das 'Excel.Application' mit Quatsch zu ersetzen und schauen was passiert.
Ob nun als exception wie beim Chemiker oder Fehler wie das obige,
man will doch eigentlich genau so etwas verhindern?

Zitat:

Zitat von p80286 (Beitrag 1411425)

Und was wäre die Alternative?

Post #2 und #4

[KodeZwerg]

Zitat:

Zitat von API (Beitrag 1411426)

Und CreateOleObject('Excel.Application') erzeugt eine Excel Instanz, welche im Hintergrund weiterläuft, falls diese nicht beendet wird.

Soweit ich weiß beenden sich solche Objekte von alleine oder wenn man, was auch immer vor " := CreateOleObject()" steht einen anderen Wert zuweist, in beiden Fällen sollte es beendet sein, wann auch immer.

Ist das falsch?

[Delphi.Narium]

Delphi-Quellcode:

uses
  ActiveX;

function IsInstalled(AValue : String) : Boolean;
var
  ClassID: TCLSID;
begin
  Result := CLSIDFromProgID(PWideChar(WideString(AVAlue)), ClassID) = S_OK;
end;

function IsExcelInstalled : Boolean;
var
  ClassID: TCLSID;
begin
  Result := CLSIDFromProgID(PWideChar(WideString('Excel.Application')), ClassID) = S_OK;
end;
// oder:
function IsExcelInstalled : Boolean;
begin
  Result := IsInstalled('Excel.Application');
end;

procedure TForm1.WelcheProzedurAuchImmer(Sender: TObject);
begin
  // Prüfen, ob Excel installiert ist:
  if IsExcelInstalled then ShowMessage('ja') else ShowMessage('nein');
  // Prüfen, ob die als Parameter übergebene Software installiert ist:
  if IsInstalled('Excel.Application') then ShowMessage('ja') else ShowMessage('nein');
  if IsInstalled('Word.Application') then ShowMessage('ja') else ShowMessage('nein');
end;

[Delphi.Narium]

Zitat:

Zitat von KodeZwerg (Beitrag 1411428)

Zitat:

Zitat von API (Beitrag 1411426)

Und CreateOleObject('Excel.Application') erzeugt eine Excel Instanz, welche im Hintergrund weiterläuft, falls diese nicht beendet wird.

Soweit ich weiß beenden sich solche Objekte von alleine oder wenn man, was auch immer vor " := CreateOleObject()" steht einen anderen Wert zuweist, in beiden Fällen sollte es beendet sein, wann auch immer.

Ist das falsch?

Dann erstell' doch mal in 'nem Programm Excel und beende Dein Programm, ohne Excel "aufzuräumen." Was bleibt im Taskmanager übrig?

Wenn Excel vorher schon lief?
Wenn Excel vorher noch nicht lief?
Wenn Du vorm Programmende der "Excelvariabel" was anderes zuweist?

[KodeZwerg]

Gesagt, getan, verstanden.:oops:

[p80286]

Zitat:

Zitat von KodeZwerg (Beitrag 1411427)

Zitat:

Zitat von p80286 (Beitrag 1411425)

Zitat:

Zitat von Luckie (Beitrag 1411363)

Warum bei einer einfachen True/False Abfrage eine Exception missbrauchen? Exceptions sind eigentlich dazu gedacht Fehler zu behandeln, die man nicht selbst beeinflussen kann. Netzwerkstecker wird gezogen, Festplatte voll, Diskette wird vom Benutzer ausgeworfen. Und die kein sinnvolles weiter Ausführen des Codes an der Stelle erlauben. Und du verschachtelst sogar noch zwei Exceptions.

Und was wäre die Alternative?

Delphi-Quellcode:

olevExcel := GetActiveOleObject('Excel.Application');
  if oleexcel=unassigned then.....

Gruß
K-H

Anhang 49817
Testet Ihr eigentlich das?
Eine Test-Möglichkeit wäre das 'Excel.Application' mit Quatsch zu ersetzen und schauen was passiert.
Ob nun als exception wie beim Chemiker oder Fehler wie das obige,
man will doch eigentlich genau so etwas verhindern?

Zitat:

Zitat von p80286 (Beitrag 1411425)

Und was wäre die Alternative?

Post #2 und #4

Das wäre ein anderer Weg, aber es geht darum, nicht mit Exceptions zu arbeiten.

Gruß
K-H

[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:

Zitat von Chemiker (Beitrag 1411483)

@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