Thema
:
Delphi
Prüfen, ob Excel installiert ist
Einzelnen Beitrag anzeigen
Delphi.Narium
Registriert seit: 27. Nov 2017
2.516 Beiträge
Delphi 7 Professional
#
13
AW: Prüfen, ob Excel installiert ist
23. Aug 2018, 17:21
zusammenfalten
·
markieren
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
;
Zitat
Delphi.Narium
Öffentliches Profil ansehen
Mehr Beiträge von Delphi.Narium finden