Bonjour,
Je cherche à tester si la librairie SQLDMO dont j'ai le GUID (LIBID_SQLDMO) est bien installée sur la machine sur laquelle j'exécute mon application, qui utilise cette librairie.
J'ai pris ce code dans la FAQ ici http://delphi.developpez.com/faq/?page=ole, mais je crois que ça ne correspond pas à mon besoin, c'est pour tester la présence d'un objet COM.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 function SQLDMO_est_installe:boolean; Var ObjetCOM : IUnknown; begin Result:=Succeeded(CoCreateInstance(LIBID_SQLDMO, nil, CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER, IUnknown, ObjetCOM)); end;
Merci pour vos réponses
David
Partager