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.

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;
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.


Merci pour vos réponses

David