Discussion :

[Maglight]

Je voudrais cacher un bouton si je n'ai pas sur ma machine le programme Excel.
Pour ce faire, je teste dans un try except, la ligne de commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CreateOleObject('Excel.Application')

Mon problème est que sur ma machine, cela fonctionne bien mais chez un de mes clients, cela lance l'application Excel.

Le but en fait est d'être capable de savoir si j'ai l'application Excel sur mon poste ou non.
Comment puis-je faire ?

Mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
try
 CreateOleObject('Excel.Application');
except
 begin
  Bar1_Btn_Excel.Visible := False;
  MonAppli.Bar1_Btn_Excel.Visible := False;
 end;
end;

[Aka Guymelef]

Normalement vous devriez récupérer l'instance de Excel dans une variable de type OleVariant. Dans ce cas tester la validité de la variable (et ne pas oublier le try except au cas où )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
 voExcel: OleVariant;
begin
  voExcel = CreateOleObject('Excel.Application');
  if VarIsNull( voExcel ) or VarIsEmpry( voExcel ) then
  begin
    // impossible de récupérer une instance d'Excel !!
 
  end;
 
end;

[defluc]

Je propose

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Var
    ClassID: TCLSID;
begin 
  if (CLSIDFromProgID(PWideChar(WideString('Excel.Application')), ClassID) <> S_OK)  //  Excel n'est pas installé

[Maglight]

A quoi fait référence TCLSID (uses)?
Mon delphi me donne "Identificateur non déclaré".

[Paul TOTH]

A quoi fait référence TCLSID (uses)?
Mon delphi me donne "Identificateur non déclaré".

TGUID (uses ActiveX)

au passage, je trouve ça très bien comme approche

[Maglight]

Merci beaucoup pour cette aide.

[defluc]

Et merci à Paul pour sa louange