Prüfen, ob Excel installiert ist

[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