Bonjour,

J'ai trouvé dans la Jcl (jclSysinfo.pas) deux fonctions que j'aimerais intégrer dans InnoSetup
les voici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
function ProgIDExists(const ProgID: string): Boolean;
var
  Tmp: TGUID;
  WideProgID: WideString;
begin
  WideProgID := ProgID;
  Result := Succeeded(CLSIDFromProgID(PWideChar(WideProgID), Tmp));
end;
 
 
function IsOpenOfficeInstalled: Boolean;
begin
  Result := ProgIDExists('com.sun.star.ServiceManager');
end;
Question cela est'il possible ? j'ai bien essayé mais là je coince.


Merci pour votre aide