Registriert seit: 27. Nov 2017
2.490 Beiträge
Delphi 7 Professional
|
AW: Prüfen, ob Excel installiert ist
23. Aug 2018, 17:21
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
|