Hallo ihr,
ich benutze zum Einlesen von Daten die Möglichkeit Exceltabellen einzulesen. Nun haben wir es bisher mit MSO 2003 und 2007 getestet. Und wie kann ich jetzt abfragen, ob Excel installiert ist (also 2003 oder 2007)? Bisher habe ich folgenden Code gefunden:
Delphi-Quellcode:
function TDatenbank.ExcelInstalliert: Boolean;
var
tmp : TGUID;
begin
// Test auf MSO 2k3, vielleicht geht es nicht für MSO 2k7?
Result := Succeeded(CLSIDFromProgID(PWideChar('Excel.Application.11'), tmp));
end;
Nun habe ich leider hier weder 2003 noch 2007 und diese Funktion liefert auch False. Aber wie müsste ich das erweitern? Ich tippe mal auf eine OR-Verknüpfung und einer 12 im zweiten Eintrag, statt der 11.
Achso möglichst so, dass ich auch überprüfen kann, um welche Version es sich handelt, sofern
dies hier "stimmt".
MfG
xZise